
Udvidet programsektion 
FAST SAVE 

Tips og tricks 
De nye spil 
Nyheder 



4& 




Anmeldelser og tests 



Softspot 6 

Der dukker mange sp&ndende pro- 
grammer op pa det danske marked 
for tiden. RUN har kikket pa dem og 
udvalgt de mest spasndende. 

Dervarengang 52 

RUN's taste adventuresider med 
orntaie af de nyeste spii og svar pa~ 
adventure-sporgsmSI. 




Menumaster 57 

Har man mange programmer til sin 
PC'er, kan det vasre svasrt at holde 
styr pa dem. RUN har testet et pro- 
gram, der kan lose dette problem. 



Tips, tricks og vejledning 



COMind/COMud 11 

RUN's lasserbrevkasse om Comal- 
sporgsmal er blevet utroiig populasr. 
Skriv til os, hvis du sefv har et 
sporgsmii 



Comal 80 skote 12 

Vi afslutter her vores Comal-skole 
med sidste del af database- program - 
met. 



Adressebog 16 

Det er spaandende at gH jagt i 
64'erens adresser. Vi har fundet 
nogle af de mest interessante frem 
og fortasller, hvad de kan bruges tif. 



Variabler... 44 

Tor Engebakken fortseller om brugen 
af variabfer i praksis og bringer nogle 
hurtige sorteringsrvtiner. 

Input/Output 46 

Vore mest popufasre sider med svar 
pa en masse speendende sperrgsmal. 



Bits & bytes 54 

Vi fortsaetter med at udforske nogle 
spaandende adresser i 128'erens ze- 
ropage. 



Programmer 



Fast save 14 

Dette program er en naturlig tortsaat- 
telse af Faslload-programmet. og vi 
er nu i stand til save og load'e med 
ekspresfart. 



Programsektion 19 

Programsektionen er denne gang 
udvrdet til 24 sider med programmer 
til C64, VIC-20, PLUS4 og C16. 
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NEWSDESK 8 

Nyhedssideme er denne gang kon- 
centreret om Mikro Data 86. 



PROLOG SPECIALISTEN 

leverer selvfelgelig ogsa til 

COMMODORE 



PROLOG 

er fremtidens programmerings- 
sprog der kan gore din COMMO- 
DORE menneskellg og intelligent. 

COMMODORE 

fortjener det bedste programme- 
ringssprog der kan kebes. 



PROLOG til 
COMMODORE fra 

((PROLOG) (DATA)) 

Myntever 3, 9380 Vestbierg 
tlf. 08 -29 61 24 



Lars Krull 

praesenterer 

EPSON LX-90 




EPSON LX-90. Printeren for 
Dem som kun vil have 
det bedste 

LX-90 er EPSON'S nye-sle dot matrix 
printer. LX-90 har bl.a. NLQog erderfor 
velegnet som printer til textbehanclling, 
LX-90 leveres bade med friktionsruller 
og Iraktor drev. LX-90 har seMelgelig 
dansk tegnsaat i en 9x9 matrix. LX-90 
leveres klar til brug incl. et at faag rnter- 
faces: Commodore, ATARI, Centronics 
parallel, IBM-PC. Apple 2c. AMSTRAD 
eller MSX. 



LX-90 kosterkun kr. 




4195,- 



tod. moms og 1 4rs gtra/ni 



Lars Krull 

PaJlisOam 12 
DK-M30Vaflum 
Tlf COB) 27 12 31 



R.B. RIGETS BEDSTE DATA 



Rasende billig og alligevel med service i top. Autoriseret forhandler af 
Commodore, Amstrad og Atari - med meget kundevenlige abnings- 
tider. Vi forhandler udelukkende kvalitetsudstyr af anerkendte 
fabrikater. Sporg efter det du ikke ser i annoncen: Software, kabler, 
joysticks, diskboxe, rensesast, farveband og 120 Watt Ghettoblassere. 
Vi forhandler ikke BBC. 

Kob for op til kroner 15.000,-, uden udbetaiing. 2 betaiingsfri 
maneder om aret. Fra kroner 200,- pr. maned. 




KEMIKALIEFRI TILBUD! 

Commodore 64 1995,- 

1702 Farvemonitor 2995- 

1531 datasette t/64 A 128 345,- 

Commodore 64 & 1541 samlet 4595,- 

Commodore 128 & 1570 samlet 7295,- 

Amstrad FD-2 1 Mb disk t/ Joyce, ekskl. 

moms 3995,- 

Centronics/RS-232C interface t/ Joyce, 

ekskl. moms 1495,- 

Databandoptager til 664/61 28 KUN 498,- 

Vortex 574" til Amstrad, enkelt 5295,- 

dobbelt 7295,- 

Vortex 64 K udvidelse t/Amstrad 795,- 

64Kudvidbar 1295,- 

128Kekstra 1695,- 

256Kekstra 2195,- 

320 K ekstra 2495,- 

512Kekstra 3295,- 

Nedenstaende printere leveres m/Centronics 
interface til f.eks. Amstrad: 

FUJI PD-80, 100 cps 3395.- 

SEIKOSHA SP-800, 80 cps, NLQ 4295,- 

SEIKOSHA SP-tOOO, 100 cps, NLQ 4895,- 

STAR SG-10, 1 20 cps, NLQ 4895,- 

JUKI 5510, 180 cps, NLQ 5295- 

STAR SR-15, 200 cps, NLQ, 

IWxbredde 12495,- 

Vi har ogsa Brother skriwemaskiner. . . 

SUPERCALC 2 1/ Joyce, ekskl. moms ... 1495,- 

AMSWORD ADVANCED t/664 og 61 28 320.- 

TASWORD 61 28 t/61 28 449,- 

COMAL 80 1/664 og 6128 (disk) 849,- 

(band) 649,- 

HERA Finanssystem t/664 og 61 28, 

ekskl. moms fra 1995,- 

PROCURATOR Finafissystem fra MCH, 

incl. moms - 2095,- 

OBS! Pascal, Cobol, Pascal etc. til Joyce: Ring! 

Vi forer desuden alle programmer til Commodore 
og Amstrad. 

MICROSTICK Joystick rn/Microswitches 198,- 

THE ARCADE Joystick m/Microswitches 245,- 
PHILIPS monocbrome skserm, gron el. 

umbra 1280,- 

Dreje/Vippefod til monitors 349,- 

Hojoplosningsmonrtors t/IBM PC oo 

kompatible ekskl. moms fra 8995,- 

10 3M disketter 5 'A " SS/DD 275,- 

10 Commodore disketter5'A SS/DD 199,- 

10 Maxell CF2 3" disketter t/Amstrad . . , 675,- 



EKSTRA RAT: 

AMIGA er kommet * 

PC-128D 8495,- 

PC-128 HEP 3795,- 

C-1572 disk Ring 

C-1571 disk 4295,- 

C-1570disk 3595,- 

C-1541 disk 2695,- 

C-1901 monitor 4495,- 

MPS1000 Ring 

FUJI PD-80/CBM 3895,- 

SEIKOSHA SP-1000VC 4895,- 

STAR SG-10/CBM 4895,- 

NCE Mus 825,- 

COMAL80V2.01 895,- 

AMSTRAD 

6128/GR0N **6995,- 

AMSTRAD 

6128/FARVE **8995,- 

AMSTRAD "JOYCE" ***9995,- 
STAR GEMINI 10X ****3895,- 
GRATI5! En kasse papir v/kob 
af en STAR printer 
( vaerd i kr. 250,-) 

* Amiga kosterca. 10.995.- u/skaerm. 
Hjemtages indenfor 8 dage pa bestilling 
(leveringstillaeg kroner 1 2.000,-). 
** Ved kob af Amstrad 61 28 leveres gratis for 
kroner 2.000,- software og/elter disketter 
efter eget valg. 

Prison pa JOYCE er excl. moms og inkluderer 
1 0 disketter, en kasse papir og levering 
(vasrdi kroner 1 .200,- incl. moms). 
Som SG10, 120/CPS. ikke NLQ. 



Alle priser er incl. 22% moms. Der ydes 1 ars fuld garanti 
& service pa alle varer, ogsa joysticks (livsvarig pa 
disketter). Vi sender/bringer overalt fra dag-til-dag. 
GRATIS levering iKabenhava 

Postboks 28 - 2980 Kokkedal 
Ordreteiefor* (02) 24 26 58 
Ma-«aikl 9 iOtU 22.00 
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Mlkro Data 86 

Det var med noget bange anelser, 
jeg troppede op pa dette ars forste 
udstilling, Mikro Data 86. Sidste Sr 
var udstillingen ingen succes, og i 
del hele taget var 1985 prasget af 
aftyste udstillinger og de, der alltge- 
vel blev gennemfsrt, blev (or en stor 
del rene fiaskoer. 

Alle bange anelser blev heldigvis 
gjort til skamme. Udstillingen var 
langt bedre arrangeret end sidste ar 
og besogslallet var det neesthojeste i 
udstillingens historie. 

Hvad var sa det generelle indtryk at 
udviklingen? Set fra hjemmecampu- 
tersiden kan man konstatere, at ma- 
skinen er blevet mere »serios«. Ma- 
skinernes hukommelse - og dermed 
mulighederne-udvide>S. spillenebli- 




ver faerre og de mere seriose pro- 
grammer vinder frem. Hjemmecom- 
puteren er pa vej ud af legealderen. 

Der er ogsd en anden udvikling pa 
vej. Priserne pa PC 'erne raster ned, 
og forskellen mellem en god hjem- 
mecomputerog en billig PC'erfindes 
ikke laangere pa prisen. Den dag, 
hvor PC'eren star t hjemmet, er ikke 
fjern. 

RUN vil naturligvis folge denne 
udvikling med interesse og lobende 
holde Iceserne orienteret i denne 
retning. 

Indtit da kan man glssde sig over, at 
Mikro Data 86 gav indtryk af en opti- 
misme indenfor computerbranchen. 



Commodore specialisten 

- med de mange 
erhvervsmuligheder. 
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COLOSSUS CHESS 4.0 

Nogen kan lide at skyde 
rumskibe, og andre vil hel- 
lere gruble i limevis over 
nassle skaktrask. Jeg tilha- 
rer ingen af de lo kategorier. 
men foretraakker absolut 
skak Irem for rumspil. 

Mil forste computerskak- 
spil, GRANDMASTER, im- 
ponerede mig meget. Del 
manglede dog en del factli- 
teter, som jeg siden hen 
fandt hos COLOSSUS 
CHESS 2.00. Nu er der 
komrnel en ny version 
(4.00) af dette spil, og lad os 
kikke lidt pa, hvad del kan 
generelt og i forhold til den 
gamle version. 

Som noget nyt kan du 
vselge, otn braattet skal vi- 
ses 2- eller 3 dimensionell, 
og i sidste tilfastde er grafik- 
ken meget flot. Du kan Hylle 
brikkerne ved hjaelp af cur- 
sortasterne, ved at skrive 
de to felter (fra/til) og ende- 
lig som noget nyt kan du 
bruge joystick. 




Du kan vaelge mellem He- 
re forskellige former for 
spil: turneringsspil, gen- 
nemsnits-niveau, alle trask 
til fastsat tic*, lige spil (com- 
puteren bruger samme tid 
som dig), uendelig tid og 
endelig probiemlesning. 

Na> spillet starter; bliver 
urene sat i gang, og du kan 
felge med i, hvad cornpule- 
ren »tasnker«. Du kan end- 
da se. hvordan computeren 
forventer, du vil traakke, og 
den »ta3nker« ogsa videre 
ud fra det forventede traak. 

Stik imod alle regler kan 
du fortryde dit traek og ga et 
vilkarligl antal trsek tilbage 
og prove igen. Du kan ogsa 



lave en bestemt opstHling 
og starte derfra. Spillet kan 
gemmes pa band eller dis- 
kette og kan vises i hurtige- 
re tempo. Som noget nyt 
ligger der I disketteversio- 
nen en hel del spil og pro- 
blemer. som man kan laare 
af. 




Er du traet af at la klo hver 
gang, kan du i den nye ver- 
sion stille pa nogle parame- 
tre. bl.a. kan du udlukke 
»abningst>ogen-* rned 3000 
positioner, saledes at com- 
puteren bliver »dummere«. 

Ifolge brugervejlednin- 
gen (engelsk) kan denne 
version *banke* samtlige 
andre skakspil til h|emme- 



computere. Den har en 
ELO -rating pa 1850 (det 
gamle havde 1750) og er i 
stand til a! undersoge 300 
positioner pr. sekund. 

Jeg kunne blive ved at 
remse op, men det ville 
vasre nemmere at lortaalle, 
hvad det ikke kan: del kan 
ikke sla mig hver gang, for 
jeg har provet at vinde - og 
det er jeg stolt af! 

Titel: COLOSSUS CHESS 

4.0 

Computer- CBM 64/12$ 
Pris: Disk: 259.00 
Band: 189.00 
Betjening: Tastatur/joystick 
FabTikat: CDS Software 
Ltd. 



Mlnmening 


(1-13) 


Computerbrug: 


10 


Manual: 


9 


Betjening: 


11 


Vedvarendeappel: 


13 


Helheden: 


11 



QUACKE MINUS 1 

Fremtiden igen. Jordens 
energi-problemer er blevet 
last. Pa bunden af Del At- 
lantiske Ocean er der blevet 
bygget et enormt korn- 
pleks. der henter energien 
direkte fra jordens indre. 
Her findes 4 centrale com- 
putere, der igen styrer en 
masse undercomputere. 
Desvserre truer en terrorist- 
gruppe med at spraange det 
hele til atomer, hvilket vil 
medfore energimangel og 
store oversammelser over- 
alt i verden. Pa" det tidspunkt 
du kommer ind i spillet, har 
lerroristerne overtaget 3 af 



hovedcomputeme. Det er 
s3 din opgave, ved hjaslp af 
den sidste hovedcomputer, 
at generobre de 3- andre 
computere og dermed red- 
de klodens energiforsy- 
ning. 

Som sa mange andre 
spil. bruger dette ogsa 




skaarmen pa 2 mader. Den 
overste halvdel som en 
slags monitor, hvor du kan 
se, hvor du er, og hvad du 
laver. Den nederste del 
som kommando og udvasl- 
gelses-computer. 

Du befinder dig ombord i 
en fremtids kampvogn. ud- 
rustet med alskens moder- 
ne og effektive vSben. Du 
har endvidere muitghed for 
at reparere og tanke op 
samt hente ny energi til dine 
vaben. Udryd lerronsternes 
kampvogne og overtag 
computerne igen. God for- 
nojelse. 



Et herligt spiL Krsever 
strategi og oversigt. Su- 
perflot grafik og realistisk 
lyd. 

Titel: Quake minus 1 
Computer: CBM 64/128 
Pns: Disk: kr. 219,00 
Band: kr. 189,00 
Betjening- Joystick 
Fabrikat: Monolith 



Minmening 


d-13) 


Computerbrug: 


10 


Manual: 


9 


Betjening: 


10 


Vedvarende appel : 


10 


Helheden: 


10 



COMMANDO 

Dette banale spil gar ud pa 
at sla sa mange som muligt 
ihjel. 




Handlingen er hurtig 
overset. Du bliver sendt ind 
bag fjendens linier. Di! ene- 
ste selskab er din M-60 
automatiske riffel samt 6 
handgranater og din opga- 
ve er at traange frem til et 
(ort. Pa vejen skal du sla 
flest mulige f|ender ihjel og 
odelsegge flest fnulige 
fjenllige installationer og 
koretojer. Pa vejen skal du 
forsyne dig med tiendens 
handgranater. 



Grafikken og lyden er 
OK. men selve ideen til spil- 
let, er noget maKvasrk. For 
nogle kan det rnaske godt 
vaare afstressende, efter en 
lang dag at komme hjern og 
sla et par hu ndrede soldater 
ih|eJ. Det er jo en ret beha- 
gelig made at gore det pa. 
Blodet bliver heldigvis inde i 
fjernsynet. 

Titel: Commando 
Computer: CBM 64/128 
Pris; Qisk: kr. 249,00 
Band: kr. 169,00 
Betjening; Tastetur Joystick 
Fabnkat: ELITE 



Min mening 


(1-13) 


Computerbrug: 


8 


Manual: 


5 


Betjening: 


8 


Vedvarende appel : 


5 


Helheden: 


6 



ENIGAFORCE 

Endnu engang befinder v 
os fremtfden og i verdens- 
rumrnet. Vi komrner om- 
kring. 

Du eskorterer, sammen 
med 4 at dine kolleger, den 
tllfangetagne general Zoft, 
der skal stilles for retten. 
Inden nan blev taget til fan- 
ge, havde han proklamere- 
det han krig mod Kejseren. 
Pa vej I rumskibet odelseg- 
ger Zoff navigationsudsly- 
ret ombord. t styrter ned pa 
en planei og da du vagner, 
er generalen forsvundet. 
Sadan starter hislorien og 
opgaven gar ud pa fol- 
gende: 

Fang generalen igen. find et 
rumsfcib og bring generalen 
til kejseren Underveis vll 
du selvfofgelig mode mod- 
stand. 

Skcermen er delt i 2 halv- 
dele. Den overste hvor 
selve spillet foregar og den 
nederste, hvor der kan vael- 
ges mellem Here ting. Den 
nederste halvdel er lavet, 
meget elegant, sa den kan 
scrolle til begge sider. 
Smart, smart. 

Undervejs vil der ligge 
nogle ting rundt omkring, 




som i kan tage med. De kan 
rnuligvis hjaelpe senere. 

Et sjovi spil der ogsS gi- 
ver maligned for variatio- 
ner, alt efter hvilke frem- 
gangsmader du va?lger. 
Uden tvivl et godt kob. 

Titel: Enigaforce 
Computer: CBM 64/128 
Pris: Disk: kr. 229.00 
Band: kr. 189.00 
Betjening: Tastetur og 
Joystick 

Fabrikat: Beyond Challeng- 
ing Software 



Min mening 


d-13) 


Computerbrug: 


9 


Manual; 


9 


Betjening: 


9 


Vedvarende appel : 


10 


Helheden: 


9 



forlsasttes side 50 ^ 




er udkommet DAT/V^ BECKER bogen 
TIPS & TRICKS {oversat fra tysk) 

Yderligere komrner i lobet af forarel pa DANSK: 
INTERN 128, PEEKS & POKES 128 
"F0RSTE BOG" til 128, 
FLOPPY-BOGEN 1570/71 



PROGRAMMER 128 

TEXTOMAT PLUS 128, BASIC COMPILER 128, 
PROFI PASCAL 128, DATAMAT 1 28 
C COMPILER 128 



DEN STORK KANTASI lsKI 

PROFI-PAINTER SENTATION! 




"MAC COMMODORE" to. 498," 

ICATAI flfl Ri9holdi 9- ° ver 100 b0 9 er °9 
IVHIHLU (J programmer. Sporg hos din for- 
handler slier send 5 kr. i frimeerker. 




NORDIC COMPUTER SOFTWARE 

POSTBOX 105 • DK 6950 RINGK0BING 

Enpl»*iporl»r for do 5 nordiske lanQe, 



7 




NEHSDEStt 



af Flemming Lerbaek 




Makro Mikro Data 86 

Interessen for Mikro Data 86 var 
overvasldende, selv tor arrangorer- 
ne. Ikke fasrre end 46.092 betalende 
gassier kom gennem tselleapparater- 
ne. Det er mere end 1 0.QOO Here end 
i fjor. Og Indendors var det isaar p2 
PC-omradet. der blev budt pa ny- 
heder. Mange billige efterlignmger a 
IBMs sagnombundne PCere af mo- 
del lerne XT og AT, kunne man se. Og 
til hell nye - meget lave priser. Om- 
kring 9.500 for et komplet system i 
PC XT model i monochrome og med 
skserm, 



Pa Commodore omradet var der 
ikke sa meget nyt. En printer blev 
prassenteret. 128D var med og et par 
nye software. Vi venter stadig pa 
Amigaen, men nar dette er ude hos 
Iseserne. skulle de forste vaere til salg 



- dog kun i meget begrasnsel antal. 
Men Commodores trumfkort venter 
ige om hjornet og den er helt be- 
stemt med i Bella Centeret, n£r det 
gar los til den totalt udsolgte udstilling 
Kontor og Data 1.-8. September. 
Men inden da Vfl Commodore for- 
mentlig vise den for offentligheden 
ved et par store arrangementer. For 
Amigaen er landet. Og nye normer 
sat for microcomputere. 



Me Jane- You Tarzan 

Commodore standen pa Micro Data Conni Pedersen, der sammen en via en mus som den Conni holder I 

86 var ikke ligefrem spaskket med anden blod pakke »Jane« {det er sin venslre hand. Med et handsym- 

nyheder. Men i denne urskovaf com- hende i computeren) lyste op midt i bol peger man pa en rsekke symboler 

putere og software gemte der sig morket. pa skaarmen. Altsa ikke noget med at 

alligevel et par nyheder. Dels (ik Jane er navnet pa et meget huske flere hundrede kommandoer. 

Commodore vlst deres nye version »GEM«-agttgt stykke software. Pa som det er nodvendigt, hvls man vil 

af 128eren, altsa 128D. Og sa fik de samme ltd er det tekstbehandhng, betjene tre sadanne avancerede 

besogende lejlighed til at hilse pi regneark og kartotek. Det bet|&nes stykker software pa almindelig vis. 

Musen kan iovrigt erstattes af en 




joystick, men musen er at foretrsek- 
ke. Iovrigt kan Jane bruges pa en- 
hver skaarm. Der sendes intet ud pa 
RGBI indgangen selv om der bade 
kan arbejdes med 40. 64 eller 80 
tegn pa skaermen. Symbol -betje- 
nmgen syntes at vasre velfungeren- 
de og meget let at bet|ene. Naturlig- 
vis vil vi her pa RUN se nasrmere pa 
dette stykke mteressante software 
senere. Prisen er iovrigt knap fern 
hundrede kroner for de tre disketter 
og manualen. Men lidt malurt er der I 
forbindelse med Jane. Hun later kun 
engelsk, altsa ikke noget med as,o og 
a. Dertor hedder det stadig (omend 
omvendt af abemandens replik) : Me 
Jane - You Tarzan. 
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Mogens Hoj Jensen, direklor for 
Quick Soft er ikke bare hurtig med at 
fa software her til landet. Hans kun- 
der er ogsa hurtige. RUNs udsendte 
medarbejder var neer blevet rendt 
over ende da messen startede, om 
tordagen. Knap var portene slaet op, 
f0f et halvt hundrede spilleglade un- 
ge stormede afsted til Quick Soft 
standen (or at prove de nyeste og 
mest populsere spil, som netop im- 
porteres af Mogens og hans folk. I 
handen har direktoren en af de nye- 
ste populsere ting til 64eren, tekstbe- 
handlingsprogrammet Tasword 64 
fra Tasman Software. At Quick Soft 
ogsa lever op til sit navn. beviste 
Mogens Jensen ved at vise os fire 
software-pakker til Amigaen. 





Computer og maleinstrument 

Man kan nufatilbehartilsinC64/128 
som gor det muligt at bruge compu- 
teren som maleinstrument, Det er 
»C-64 Oszillograph« fra firmaet 
Henz Mocrocomputer, Schuman- 
strasse 23, 6600 SaarbrucKen. tlf. 
681 36849, som har fremstillet maie- 
instrumentet- For ca. 300 mark bliver 
man i stand til atlagreca. 10 forskelli- 
ge digital-oszilloskopbilleder ad gan- 
gen, man kan male pa elektronik med 



de ssedvanlige vaardier for modstand 
osv. Det hele kan printes ud pa 
skasrm og/eller printer f.eks. 
801eren og rnange andre. Malere- 
sultater kan fremstilles i et diagram, 
som med forskelltge maleva?rdier ud 
af x-aksen kan sammentatte tall knap 
44 en halv times malinger. Diagram- 
merne kan selvfolgelig ogsa printes 
ud. 



Commodore ma lukke 
fabrik I England 

Det er nu givet at Commodore lukker 
sin fabrik i Corby i England. 250 
mennesker mister deres job. Fra 
starten regnede man med job til 
1.000, men da huerken C14 eller 
Plus 4 blev den succes, man havde 
regnet med, udeblev ogsa denne 
beskasftigelse. Nu har Commodore 
International bestemt, at fabrikken 



skal lukkes, netop som del ser ud til, 
at der er kommet gang i de to produk- 
ters salg. Efter en kraftig prisreduk- 
tion. forstas. Hvis de to produkter 
skal produceres i Iremtiden bliver det 
formentiig I Vesttyskland, nsermere 
betegnel Braunschweig, hvor man I 
dag laverbl.a. 128 og 128D, samtde 
to PCere (snart fire). 



Okimate I handelen 

Vi her pa RUN er maske aller mest 
glade for, at Okimate 20 nu endelig er 
kommet i handelen. Dels er det en 
praktfuld lilfe printer, som ogsa kan 
lave el farvetryk af helt fantastisk 
kvalitet. (se test nr. 9/85). Den anden 
grund til at vi er begejstret er at vi 
m&ske sa slipper for de utallige op- 
ringninger om, hvor og hvornar im- 
portoren Technitron/Dyneer far prin- 
teren pa gaden. Det bliver Randers- 
firmaet elier rettere keeden JYFO, (tlf. 
06 432088) som kommer til al for- 
handle Okimate 20 og el udvalg i 



tilbehor. Del sker gennem kasdens 
60 forretnmger over hele landet, altsa 
boghandlere. Den forste sending er 
allerede ude i forretningerne og det 
har skabt storm af eftersporgsel. Na=- 
ste sending sfculle vasre pa trapperne 
nar dette blad ligger i forretningerne. 
Ud over Commodore module!, Sas 
den lovrigt med et almindeiigt Centro- 
nics parallel interlace og med et al- 
mindelig RS232 interface. Prisen 
kommer til at holde det. vj oplyste i 
testen. 



Ny historie 

Kvinden hedder Karen Lacour. Fir- 
maet hedder Proware. Og diskstatio- 
nen Maladore. Som navnet antyder 
kan den bruges til en anden enhed i 
branchen, som ender pa *dore«, 
nemli" Commodore. Og det til model- 
lerne 64 og 128. Den skulle kunne 
styres direkte fra maskinerne, forma- 
tere som en 1541, men betydeligt 
hurttgere. Prisen skulle ogsk vaere 
noget lavere end origmalen, vel orn- 
kring 2000 kroner, oplyser Soro/fir- 
maet Proware, tlf. 03 631460. 
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Spy VS Spy 

i historiebogerne kunne man i min 
skoletid Isese, al historiens store slag 
blev udkcempel pa slagmarken. Sa- 
dan er det ikke mere. Nu er del 
benhard butsnes. som afgor hvem 
der skal overleve - ihvertfald i com- 
pulerbranchen. Kun de storste er 
spaet overlevelse. Pa MikroData 86 
modtes to af giganterne - pa det 
danske marked - i al fredsomme- 
lighed. 



Med rekordstort besagstal og lige 
sa mange behageiige/ubehagelige 
sporgsmal fra besogende, kan der 
godt v«re brug (or en hyggestund. 
Men selv om de stgrste af udsiilieme 
har sikret sig et lille aflukke r hvor de 
kan traekke sig tilbage og losne slip- 
set, er det sikrest at ga ud og blande 
sig med de besogende. Den taktik 
kender en gammel kending af bran- 
Chen, director for Commodore i Dan- 



mark, Kristian Andersen, nalurligvis. 
Og praktiserer den - llittigt. En af 
dem. som matte holde for, var salg- 
sdirektor hos Dinamicro, Alex Boeck. 
Og sadan gik det til. at de to sma 
giganter - Commodore og Amstrad - 
modtes til en hyggelig sludder. 
RUN-fotografen kom forci og snup- 
pede folgende fotos i forbifarten, 
samt noterede sig de ttlhorende be- 
masrkninger. 




tiedet^nde ^ 





Alex; - Det er den rene joy at saalge 
Joyce. Den gar lige ind hos torbru- 
geme. 

Kristian: - Godt nok. Kvalificeret 
modstand er bare med til at sk&rpe 
interessen hos forbrugerne. Og dee- 
med ogsa ege salget i min lille biks. 
Forresten kommer du til indvieisen i 
Arhus? 2650 kvadratmeter under tag 
du ved! 
Alex: — Hmm. 
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COMind.. 

af Henning Randmose 




.COMud 



Forst en Mile bon, prov at konkreti- 
sere sporgsmalene mest muligt. 
rlsikoen for misforstaelser er 
storre. jo bredere et sporgsmal er 
formuleret. 

COMind 

Forst iak for den gode ide til spalten 
her. 

Kunne i ikke foria^lle neermere om 
de iorskellige mufigheder COMAL 
(vers. 2.01) giver til styring af ydre 
enheder. 

Ikke de »sa3dvanlige» ordrer, der 
er forklaret i manualen; men f.eks. 
detaljeret om setect input/select out- 
put Hommandoerne, Er det bl.a. mu- 
ligt via dlsse ordrer at lade disk'en 
indlsese programmer dir&kte fra cas- 
setten? 



0010 PAGE 

0020 OPEN FILE 1 ,"cs:prg.navn", 
READ 

0030 OPEN FILE 2.*0:prg.navn w . 
WRITE 

0040 WHILE NOT EOF(1) DO 
0050 a$: = GET$(1,1) 
0060 PRINT a$. 
0070 PRINT FILE 2; a$ 
0080 ENDWHILE 
0090 CLOSE FILE 1 
0100 CLOSE FILE 2 



I ovenstaende kunne jeg godt have 
brugt SELECT, men det ville kun 
have oget programmel med 2 linjer. 

Vedrerende styring. sa skriv hvad 
du vil have styret og hvorior. Jeg kan 
ikke svare dig, da dit sporgsmal jo 
kan daekke alt. og jeg nassten ville 
kunne fylde bladet med del. 

hilsen og pa genskriv 

Henning □ 



Ole Kaels 
Hedeskreenten 43 
8800 Viborg 



COMud 

Der er ikke sa megel at forklare om 
SELECT kornmando/saatningen, slet 
ikke ud over hvad der star i manua- 
len. Du kan ikke bruge kommandoen 
til at styre med, kun til at va=lge 
hvilken ekstern enhed, dit output/ 
input skal ga til/komme fra. I princip- 
pet kan du med den ordre vaelge alt, 
hvad du kan tilslutte din computer. 

Problemet med overforsel fra cas- 
sette til disk, kan du klare pa folgende 
enkle made: 



USE system 

defkey(3,»load«cs:prg.navn»13»sa- 
ve«prg.navn»13-) 



Du sastter navnet pa det program du 
vil have overfert. ind hvor der star 
prg.navn. Derefter skal du blot taste 
funktionstast f3 - viola - og program- 
met bllver overfed fra band til disk. 

Hvis det er en sekventiel fil, kan du 
bruge nedenstaende lille program. 
Her lar du i ti Igift udskrevet indholdet 
pa sksermen. sa du kan faige med I 
overiorslen. 



TIL 

COMMODORE 64 

• og mere og mere 
til 128 


I 

*"< 


pAvej 


TOR DU 

udtordre din Commodore 64 
med gode gamle danske spil 
- sa kob vores BWW 

M0LLE disk/band kr. 168.- 
MIX disk/band kr. 9a.- 
0AM disk/band kr.16fl.- 

tre spil der er meget nemrne al ga lil 


TEKST II 

i 128 mode, med 40/80 tegn 
til disk 1541/70/71 

RING og hor neermere om 
kvalitet og pri3.- - - ogsd en 
DATABASE pi vej 


BWW-TEKST 

band kr. 548. - 
BWW-TEKST 

disk kr. 607.- 
BWW-MULTICARD 
disk/band kr. 498.- 

- og mange andre programmer 
RING OG HOR NXRMERE 


SE HER 


Endnu en nyhed til din 64'er 

BWW-"SKOLEN'S NR. 1" 
disk/band 198- 

Regner og slaver i Rere svaer- 
hedsgrader 1 til 7. klasseirin. 


Fcrer din forhandler Ikke 
BWW-programmerne, sa 
ring fornaerrnesteforhand- 
ler. Vi neermer os 150 for- 
handlere. 

BWW findes i hver en by. 
\ 


Ed NX/ NX/ 

SOFTWARE 

TrsllegSrdsvej 208 
8210 Arhus V 
Telefon 06-15 22 88 

J 



11 



Ccmalskcle C c malskole Cc 



n 



af Henning Randmose 

deie 



Pa sidste redaktionsmode beslut- 
tede vi, at indfore laeser-demokr- 
ati". Vi fagredaktorer skal ikke 
laengere sidde og gaette, hvad der 
kan have jeres interesse, derfor 
nedlcegger vi skolerne fra og med 
dette numrner - altsa ogsa CO- 
MAL skolen. 



L 



Det er sS meningen, at du sa kort- 
fattet og sa konkret som muiigl be- 
skriver dit COMAL problem, og sen- 
der del ind lil COMind/COMud. Jeg 
skal sa efter bedste evne prove a! 
lose del. Pa den made er DU medbe- 
stemmende om. hvad vi bringer i 
bladei. Nok om del, vi skal nu til at se 
pa den database, vi startede pa" i 
sidste numrner. 

Som Scedvanlig starter du med at 
taste 14 (AUTO), da vi torst til sidst 
lletter programdel 2 HI sidste maneds 
program. 

PROC udskriv'paprinter 

Den indeholder ikke andet nyt, end at 
vi i linje 50 giver besked om , at output 
skal dirigeres til printer. I linje 130 
dirigerer vi output tilbage til skaarm. 

I linje 70 udskrives etternavnet 
med et mellemrum efter fornavnet. 
Mellemrummet skyldes. at der er 
brugt et semikolon, hvis dervarbrugt 
et komma, havde der ikke vaeret no- 
get mellemrum. Hvis du istedet on- 
sker, at eftemavnet skal udskrives i 
en bestemt position, kan du gore det 
med en TAB angivelse. Nedenstaen- 
de linje udskriver etternavnet i pos. 

40. 



PRINT TAB(10) t a1 ${z>.TAB(40). 
a2$(z) 



PROC sorter 

Her sorteres kartoteket atfabetisk el- 
ter efternavn, da det er a2$(i), som 
bestemmer sorteringsrsekkefolgen. 
Du kan sortere efter andre kriterier, 
sa skal du blot indseette en anden 
variabel i linje 290. 

Det er nemmest at forklare, hvad 
der egentlig sker, hvis vi forestiller os 
at l.eks. post nr. 5 er hentet ind. altsa 
at i er lig 5. 
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I linierne 290 til 360 star sa: 

Hvis etternavnet, gem I i a2$(5+1) 
(a2$(6)) omregnet til ASCII vserdier, 
er mindre end efternavnet gemt 
a2$(5), sa ombyt alle posterne med 
numrene 5 og 6. sa at post 6 bliver til 
post 5 og omvendt. Selve ornbytnin- 
gert sker i PROC ombyt. 

Da jeg tidligere bar forklaret REF, 
vil |eg nojes med at sige. at REF 
sorger for at asndringen bliver retur- 
neret til afsender. 

For a1 forklare PROC ombyt naar- 
mere, ma jeg bede jer tage famasien i 
brug. Foreslil dig at vartablerne zS og 
x$ er 2 tomme kasser. Nar procedu- 
rekaldet ombyt(alS(i).alS(i + 1}) fo- 
retages, lander indholdet af a1$(i) i 
kasse z$. og indholdet al a1$(i+1) I 
kasse xS. Inde i proceduren er der 
nok en torn kasse - c$. Nu bliver 
indholdet i kasse z$ lagt i kasse c$. 
Nu er kasse z$ lorn, sa der laagger vi 
indholdet af kasse x$, som s& er torn, 
sa vi nu kan lasgge indholdet af kasse 
c$ i kasse xS. Nu er kasse cS torn, og 
indholdet af kasserne z$ og x$ er 
byttet om. REF returnerer nu indhol- 
det af kasserne til afsenderne. a1${i) 
modtager indholdet af kasse z$ osv. 

Hvis forklanngen stadig er svaar at 
forsla, s3 find 3 torn me sesker, en 1 0 
og en 25 are, og prov sa at folge 
forklaringen ved at flytte monterne. 





PROC seg 

Her indtastes en sogestreng, den 
skal vsere pa mindsl 1 og hojst 25 
tegn. I linje 500 leegges indholdet af 
et postnummer sammen til en 
streng. Linje 510 starter segningen, 
her undersoges om slrengS indehol- 
der den tegnkombination, der blev 
indtastet i sogeslrengS. Hvis det er 




tilfasldet. renses en del af sksermen, 
og indholdet udskrives af PROC ud- 
skriv indhoid, eliers undersoges na=- 
ste Dost. Pausen er indlagl for at man 
kan fa tid til at Isese indholdet. 
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PROC udskift'post 

Efter at der er indtastet et postnum- 
mertil udskiftning, kontrollerer vi linje 
650 om poslen eksisterer, nummeret 
ska) vaere mind re end eller q. der |o 
indeholder antaliet af oprettede 
poster. 

Hvis postnummeret eksisterer. 
bruger vi igen her PROC udsknvmd- 
hold, til a! udskrive indholdet til skaer- 
men. Sa far man en fortrydelsesmu- 
lighed i linje 670. 

Svarer man |, udfsres IF seetnin- 
gen - linje 680 til 760. Hele udskift- 
ningen sker ved, at vi laegger nye 
data ind i variablerne med postnum- 
mer i. 

PROC slet'post 

Linjerne 850 til 920 virker pa samme 
made, som i udskift'post. Du kan 
ogsa her laegge et check ind, for at 
kontrollere om postnummeret eksi- 
sterer, det gores pa samme made 
som i udskift'post. 



Selve sletningen foregaf i FOR lek- 
ken, linje 930 til 990. Igen her er del 
nemrnest at torklare virkemSden. 
hvis vi arbejder med faktiske post- 
numre. 

Vi foresliller os. at kartoteket inde- 
holder 42 poster, og at vi onsker at 
slette post nr. 26. 

Vi indtaster 26 i variablen nr, vi far 
nu udskrevel poslen pa skasrm. Vi 
svarer j, til at den skal slettes. 

FOR lokken siger nu: 

Vasrdien af i er den samme, som 
vasrdien I nr (altsa 26), sa fra post 26 
til post 42-1 (41), skal Indholdet af 
posterne flyttes over i et postnum- 
mer, der har en lavere vaerdi. Vaardi- 
en af post 27 lasgges i post 26 osv. 
Forskellen mellern 26 og 41 er 15, 
FOR lokken udfores altsa der\ne 
overflylning 15gange. Den 15. gang 
FOR lekken udforer overflytnmgen, 
tager den post 42 og lasgger i posi 
4t. Sletningen er nu udfort. da v< har 
undladt at placere det oprindelige 
indhold af post 26 nogen stecfer. 

Kartoteket indeholder nu 41 po- 
ster, det er vi nodt til at fortaelle q. 

Del sker i linje 1000, hvor vi traek- 
ker en fra vserdien af q. 



FLETNING AF DEL 1 OG 2 

Nu skal vi have programme rne koblet 
sammen til el enkelt program. Du 
starter med at gemme del 2 pa band 
eller disk. Da vi senere skal bruge 
MERGE, skal det tkke SAVEs, men 
LISTes, Tast LIST "del 2" <RE- 
TURN>. 

Nar du har sikret dig, at det er 
germ, taster du NEW <RETURN>. 
Nu LOADer du del 1 ind. N3r du har 
del inde, taster du FIND "//" <:RE- 
TURN>. Du far nu udskrevet linje 1 0 
pa skaermen, da den ikke skal rettes, 
lasler du blot <RETURN>. 

Sadan fortsaetter du. indtil du kom- 
mer til linje 210. her korer du din 
cursor hen over den forste af skra- 
stregerne, bruger metlemrumstasten 
2 gange, sa begge slreger bliver 
slettet - nar det er sket, taster du igen 
<RETURN>. 

Du har, ved at fjerne kommentar- 
stregerne, aendret linjen til en aktiv 
prograrnllnje. Sadan forlsastter du nu 
indtil slut. 

Nu er del 1 parat til at modtage del 
2, vi mangier blot at koble dem sam- 
men. Du beholder del 1 i compute- 
ren, og sa taster du MERGE "del 2" 
<RETURN> 

Del 2 bliver nu koblet til del 1 , og du 
kan du SAVE den fasrdige database. 

Rigtig god fornojelse med alle de 
aendringer du vil have, for at fa data- 
basen til at passe til dine behov. □ 
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Gem dine programmer 9 gange 
hurtigere med FASTSAVE 

Da vi for nogle maneder siden (RUN 
nr. 7 1985) kom med et FAST- 
LOAD- program til dlskettestatio- 
nen, tovede vi at se pa" muligheden 
for al lave en » FASTSAVE*. 

Jeg stger vi her, fordi e! vigttgt 
navn ikke var kom met med i Fast- 
load-artiklen sidste ar. 

Jeg har inlet mod aare og berom- 
meise, men den smager bedst, nar 
den er pa sin plads! Denne gang - 
som sidste gang - er det John An- 
dersen, som har gjort hovedarbejdet 
pa disse programmer - aeres den 
som seres bor! 

Et naturligt supplement 
til FASTLOAD 

Hvis du stort set kun bruger maski- 
nen til spil. er »Fastload« maske alt. 
hvad du har brug for. 

Hvis du derimod programmerer en 
del. vil du hurtigt blive irriteret over, at 
programmerne loades ind i maskin-e 
med turbo-hastighed, mens du sta- 
dig ma vente et minut eller mere pa. 
at programmerne saves, 

Nar du arbe|der med et stort pro- 
gram, henter du det maske kun ind 
een gang, mens du saver forskellige 
versioner mange gange. Med FAST- 
SAVE vil du kunne korte denne ven- 
tetid ned rned 80-90%H! 

Hvorfor ler alle af min 1541? 

Nu skal man ikke sige for meget stygt 
om 1541'eren. Commodore ejere 
har \o en tendens til at fa et personligt 
forhold til sit udstyr, og for mange 
ukvemsord vil vel resultere i rasende 
laeserbreve. 

Da man skiftede kassettespilleren 
ud, blev man selvfolgelig overvseldet 
over hastigheden. og man forstod 
ikke helt, at ejere af BBC oX trak lidt 
pa smilebandet over nyerhver- 
velsen. 

Senere har man faet et mere reali- 
stisk syn pa sagen, og man kan end- 
da mdromme, at denne diskettesta- 
tion har sine svagheder, 



Fast 



Den er utrolig langsom 

En af mankvaerdighederne er, at den 
er en serrel enhed. 

Dette vil sige. at en byte ikke kan 
sendes I sin helhed. men ma sendes 
bit for biL 

Helt i overensstemmelse med 
Commodore praksis, skal dette ske 
sa langsomt som multgt. Diskettesta- 
tionen kan heller ikke lave andet, 
mens den gemmer en blok. Derfor 
ma den mellem hver blok, den skri- 
ver ud. modtage en ny fra 64'eren, og 
del tager tid! 

Nar den sa har faet en blok med 
data, kan den ikke skrive denne pa 
disketten uden videre. Den ma over- 
sales til det format, som ligger pa 
disketten, og det tager ogsa tid! 

Alt dette rnedforer, at det tager 
mere end 7 minutter at fylde en dis- 
kette med data. Skal man altsa lave 
en backup efter denne metode. vil 
dette tage ca. et kvarter, og det er vel 
derfor Ikke sa maerkeligt, at de hurti- 
ge overtenngsrutiner forst sa dagens 
fys i forskellige kopiprogrammer! 

FASTSAVE sparer tid ved at afkor- 
te skriverutinerne og overforingen 
mellem 64'eren og diskettestatio- 
nen. 

Hvordan gemmes data? 

En diskette bestar af flere spor. Hvert 
spor er igen opbygget af flere sekto- 
rer. Antallet at sektorer varierer fra 
17-21. 



Spor 1-17 
Spor 18-24 
Spor 25-30 
Spor 31 -35 



21 sektorer 
19 sektorer 
1 8 sektorer 
17 sektorer 



En sektor pa disketten kaldes ogsa 
for en blok. Nar man skal skrive til en 
bestemt blok. begynder disketten at 
kore, og skrivehovedet flyttes hen ti! 
sporet, hvor blokken ligger. Nu pas- 
serer sektorerne forbi under skrive- 
hovedet. og stationen venter til den 
opdager starten pa den sektor, den 
onsker, 




Disketten foretager ca. 5 omdrei- 
ntnger l sekundet. Teoretisk skulle 
man kunne fylde 5 spor i sekundet. 
eller hele disketten pa 7 sekunder. 

Det kunne have vseret pragtfuldt, 
men desvasrre er der en del be- 
grasnsninger. 

Som for nsevnt kan diskettestatio- 
nen ikke gore mere end een ting ad 
gangen. I praksis betyder dette. at 
disketten snurrer videre, mens der 
hentes en ny blok ind fra datamaski- 
nen. Nar den sa er klar til at gemme 
blokken pa disketten, vil den sektor, 
som ligger under skrivehovedet, ikke 
lasngere vasre den samme, som den 
skrev til forrige gang. Den ma derlor 
have el system til at besternme. hvil- 
ken sektor, som skal vasre den 
na=ste. 

Stregbredde 

Nar en sektor er blevet fyldt, hvilken 
sektor bliver sa den naeste? 

Normalt valges hver 10. sektor. 
Dette kaldes stregbredde (streg- 
bredde = 10). 

I et spot med 21 sektorer vil ra?k- 
kefolgen blive: 

0. 10. 20. 9. 19. 8, 18. 7, 17, ... 

Stregbredden er vigtig for hastig- 
heden pa FASTSAVE Uden at 
»blanke- skasrmen. bruger den ca. 
0.08 sekunder mellem hver blok, 
som lagres pa disketten. I det lidsrum 
passerer 6-7 sektorer forbi. 

Hvis stregbredden er 7-8, vil man 
altid komme rigtig til den nseste sek- 
tor. Hvis stregbredden derimod hav- 
de vasret 6 eller mmdre, vllle man 
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vaerc kommet lidt for sent, og mitte 
vente en runde lil. Dette er selvtolge- 
lig a! slose med tiden og bor og ma 
undgas! 

Det er derlor vigtigi at vaelge en 
stregbredde. som bevirker. at man 
lander preecis pa den neeste sektor. 

Del samrne gaslder for FAST- 
LOAD, og hvis du skal bruge FAST- 
SAVE i forbmdelse med FASTLOAD, 
bor du vaatge en stregbredde. som 
far FASTLOAD til at komme rigtig 
frem til nasste sektor. 

Bedsle stregbredde; 

Spor: 1-17 18-24 25-30 31-35 
Aim. skaerm: 6 6 7 7 
Blank skzerm: 7 7 7 6 
Fastload; 10 10 10 10 

Hvordan virker FASTS AVE? 

FASTSAVE er opbygget pa samme 
made som FASTLOAD. 

En del rutiner er btevet forbedrel, 
blandl andet sknvningen til disketten, 
saledes at den faktisk er btevet hurti- 
gere end FASTLOAD. 

Programme! ligger gemt bag KER- 
NAL-ROM. og kan fungere sam- 
men med FASTLOAD og TURBO- 
SAVE. 

De eksakte adresser er SF800- 
SFEFF Dette omrade bliver normall 
brugt til at lagre grafik. som ikke far 



plads andre steder i hukommelsen. I 
dine egne programmer skulle det 
vasre en let sag at undgd kollision 
her! 

Derudover bruges en lille del af 
stack-omradet <S01 00-S02Q0). 

Hvordan taster jeg 
programme! ind? 

10 GOSUB til programsektionen og 
la?s mdtastningsvejledningen. 
20 Tast tidt a( FASTSAVE-program- 
met ind. 

30 SAVE programme! pa band ellei 
diskette. 

40 IF NOT (hele programme! taStet 
ind) THEN GOTO 20 
50 RUN programme!. IF (program- 
met svarer »fejl i datasaBtningeme-) 
THEN find fejlen : GOTO 30 

Programme!, du indtasler. er ikke 
selve FASTSAVE-programmet. 
Denmod genererer dette program el 
fikst og tasrdig! maskinkodeprogram, 
som er klar til brug. 

RUN programmer 

Nar du nu RUN'er programmet, vil du 
blive spurgl om en del data. 

Der er lag! default-vasrdier ind ■ 
programmet, sa hvis du ikke har spe- 
cielle owsker. behover du blol a! !ryk- 
ke pa RETURN-tasten. 



De! forste, du bhver spurgt om, er 
slregbredden (se ovenfor (or de for- 
skeltige vaardteri. 

Hvis du skat bruge programme! 
sammen med FASTLOAD, taster du 
bare RETURN. Hvis det denmod er 
vigtigere tor dig, a! programme! sa- 
ver sa hurligi som muligt. vaelger du 
en af de andre veerdier. 

Verify 

Du kan vaalge. om du vil check'e 
lagrtngen (verily) eller ikke. 

0 = ingen verify 

1 = vent en runde og check om blok- 
ken er skrevei ogiigt (dette gores 
automatisk ■ den normale save-rud- 
ne). 

2 = hop !il verity-rutinen efter a! pro- 
gramme! er bfevel lagret. Denne mu- 
lighed er beregnet tit brug sammen 
med FASTLOAD, da det tager ltd! 
kortere tid end 1. 

ROM/RAM 

Nar du ta?nder for 64'eren, star der, 
at du har ca. 39000 byles fri, hvilke! 
er 38K 

Men reklamerne pasiar, al den har 
64K RAM! Hvor er de andre 26K? De 
er der. ingen tvivl om del. men de er 
ikke umiddelbarl tilgasngelige. 

64'eren har 64K RAM, 20K ROM 
og 4K IND/UD-omrade, tilsammen 
88K. Problemet era! bare, a! den kun 
kan se64K ad gangen. 

At koble noget af ROM'en ud. 
mens du er i BASIC, bltver ikke god!. 
Prov med POKE1.54 {save forsl!). 

Dette ma gores i maskinkode. Hvis 
al! biev kobtet ud. ville du have 64K 
med RAM. men ingen kontakt med 
omverdenen. Derfor ma ROM'en md 
igen efter al du har hentei del, du 
havde behov for. 

Blanking 

"Blankest sksermen, vil FASTSAVE 
kore lidt hurtigere. 

0 normal skcerm 

1 blank skasrm 

Andre vserdier giver "morsomme- 
resultater... 

Hvis du l.eks. skal gemme ornra- 
del under BASIC-ROM. ma du forst 
gemme en version af FASTSAVE. 
hvor ROM/RAM vaardien er 48. 

fortsa?tles side 56 



15 



■0 



16 



Off 



o. 



"e 0 ' e ' 



0/ 



«9 



17 




oftware 

iSiSlSlQl 



I denne mined bringer vi seks 
programmer fra vores »bunke« af 
gode laeserprogrammer. VI er fort- 
sat interesaeret i at modtage pro- 
grammer fra iceserne. og vi prae- 
mierer med op til 10 disketter eller 
20 band efter enske. Meget korte 
programmer eller rutiner prae- 
mieres licit lavere. Send dit pro- 
gram ind, og lad os klkke pa det. 

Kalenderprogram 

Fra Poul Erik Sommer har vi modta- 
get el kalenderprogram. der kan ud- 
skrive en kalender pa enten skaar- 
men eller pa printeren. Man indtaster 
arstallet, men i evrigt krsever pro- 
gramme ikke yderligere forklaring. 



Storm Flighter 

Vi er glade for igen at kunne bringe 
programmer for VIC-2G. 

Anders Lund og Thorkild Larsen. 
begge fra Norge, har lavet dette spil, 
rivor man i stormvejr skal lande med 
et fry pa toppen af platformen pa en 
bad. Det er ikke let, men du har tre liv 
at tage af. Spillet startes med tryk pa 
F5. 

Pusletavle 

Om dette spil tor vi egentlig ikke 
skrive andet end at det er skrevet af 
Bent Clausen fra Hvidovre. Program- 
met pndeholder nemlig 2 »sider« in- 
stnjktion. 



Afbetaling 

Morten Elk fra Rodovre har lavet et 
meget flot program til beregning af 
renter, afdrag m.v. Programmet sty- 
res af en Nile hand, der igen styres af 
joystick' et. 

Et meget flot program, der ligele- 
des er selvforklarende. 



Fakturaprogram 

Faktureringsprogram til PLUS4/C16, 
hvor der udskrives faktura/faktura for 
karsel samt kredttnota. Momsfil op- 
rettes og opdateres automatisk. Der 
kan fares udgiftsregnskab, og udgtf- 
ter asndrer ikke pa momsfiten. 

Programmet er indsendt af Henry 
Petersen fra Skjern. 



fortsaetter succe'sen 

PRO 0KONOMISYSTEM 



★ Finans 

* Kreditor 

★ Debitor 

* Lager 

+ Fakturering 
Commodore PC10, 
JUKI 5510, 1 ks. papir. 
10 disketter. 

24.995,- 

excl. moms. incl. levering 
og opssrtning 
samt igangseetning. 
1 ars garanti. 



Evt. pa leasing, fra kr. 625,- pr. maned. 




Strandmarksvej 21. 



Z650 Hvidovre. 



T1f.[Ql)78 5543 
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JEndring af disk-navn 

Med dette program kan du let send re 
disk-navn og ID. Programmet er 
selvforklarende og indsendt af en af 
vore mange norske laesere, Helge 
Tjelta. 
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NYT KONTROLSUMSPROGRAM 



Fra og nr. 1/2 1986 har vi prlntet 
programmerne ud pa en anden 
made end tidligere. Dette skyldes, 
at vi i samarbejde med RUN i Vest- 
tyskland har faet lavet et (orbed ret 
kontrolsumsprogram, der skulle 
give en fejlfrl Indtastnfng. 

Kontrolsumsprogrammet pa nas- 
ste side er et maskinkodeprogram, 
der »ksrer« uafhaangigt af det Basic- 
program, du er t faerd med at taste 
ind. Du skal imidlertid vasre opmaark- 
som pa folgende: 

1 ) tallet tit hojre i overste programlinje 
er kontrolsummen, og den skal ikke 
tastes ind. 

NSrduser trykkerdu 



2) n^r du har indtastet en programlin- 
|e og trykker pa return, far du overst 
pa skaarmen den kontrolsum, der 
gerne skulle passe med den, der star 
i bladet. 

3) alt hvad der star i de kantede 
parenteser er styrekoder og skal ind- 
tastes i' henhold til nedenstaende 
skema. 

4) CBM i programlistningerne bety- 
der Commodore-tasten. 

5) sma bogstaver betyder SHIFT og 
det pagasldende bogstav. 



6) tre tegn nafviger« 
'= T 



7) nar du har tndlaast kontrolsum- 
sprogrammet og "kart« det, skal du 
laste NEW, for du indtaster dit Basic- 
program. 

8) hvis du saver og loader dit kontrol- 
sumsprogram som et rnaskinkode 
program, loades det med ,8,1 eller 
.1,1 og startes med SYS 49152. 



[CLR) 
[HOME] 
[UP] 
[ DOWN I 
I LEFT] 
I RIGHT | 
IRVS] 
[OFF] 
[BLK] 

[wht] 
[red I 
IcynI 
I pur] 
[grn| 
Iblu] I 

[YELl I 



SHIFT 



I CLRfHOME 



Cflsn 



I c«sh » 



crpi 



CTRL 



CTRL 



CD 

cd 
cd 
cd 

CD 

cd 
cd 
cd 
cd 
cd 



SkBBrm 

n 

H 
II 

a 

□ 



El 

i 

□ 
□ 

Si 



I CBM 
I CBM 
[CBM 
[ CBM 
I CBM 
I CBM 
I CBM 
[ CBM 
|F1| 
[F2] 
|F3| 
tF4] 
|F5] 
|F6l 
[17] 
|F8| 



ii Da 

21 m 

31 E) 

m Da 
si oa 
6i Da 

n Da 
si Da 



CD 



□ 

R 

83 
□ 
E 
■I 

□ 



IS 
II 

Si 




KONTROI.SUMSPROGRAM COMMODORE 64 
DISKETTEVERS ION 



10 RESTORE :F0R A=49152 TO 

49629: POKE A,234:NEXT :PR1NT 
"[CLRlVENT LIDT, DATA 
INDLAESES! ! I" 

20 F=0 : READ A:Y=PEEK (63)+PEEK 
(64)*256;IF A=0 THEN 200 

30 READ B,C:FOR D=A TO B : READ 
AS: IF LEN (AS) -2 THEN 90 

40 E-ASC (A$)-48-<7 AND A$> @" 
):LF A$<"0" OR AS>"G" OR AS> 
»s" AND A$<-"A" THEN 90 

50 AS«MIDS (AS,2):E=E*16+ASC 
(AS)-48-<7 AND A$>'(3") 

60 IF A$<"0 A OR AS> F" OR AS> 
"9" AND A$<"A" THEN 90 

70 F=F+E:P0KE D,E:NEXT :1F F=C 
THEN 20 

80 PRINT "CHECKSUMSFEJL; SKAL 

C", VAERE"F :GOTO 100 
90 PRINT "INDTASTNINGSFEJL: 

100 Z-PEEK (63)tPEEK (64)*256: 
AS=STRS (Y)+STR$ (-Z):IF Y= 
0 THEN A$=STRS <Z) 
110 PRINT "[ DOWNlLi A$ I 2UP] ; : 
POKE 198,1 :PQKE G31,13:END 
PRINT " [ DOWN ] SLUT t i l ! PRINT 
"(DOWN] SKAL 
MASK I NKODEP ROGRAMMET 
INPUT "GEHMESL2SPACES1J 
[3LEFT]";AS:1F ASO"J* THEN 

220 SYS 578I2"(S:49152 KORREKTOR" 

,8:P0KE 193,0:POKE 194 f 192: 

POKE 174,222 
230 POKE 175,193;SYS 62957: 

VERIFY "49152 KORREKTOR ,8,1 
300 A$= ,m : INPUT "| DOWN ] START 
KONTKOLSUMSPROGRAM? J 

(3LEFT]";A$:IF AS="J" THEN 

SYS 49152 
999 * 

1000 DATA 49187 -49208 , 2 342 , A9 ,AE , 
A2,C0,8D,02,03,8E,O3,03,0O, 
A0,1F,B9,E2 

1001 DATA Cl.99, 00,04, 88. 10.F7 

1002 DATA 49323, 49387,9lSb;4c.31, 
F-A, 78, A9,2E,A2,C0,8D, 14,03, 
8E, 15,03,58 

1003 DATA A9,00.8D.E1 ,C1,20,60, 
A5,8C,El,Cl,86,7A,8A,7B,AC, 
EOjCl jFO, 1 3, AO 
DATA 10,B9,El ,Cl ,99,F1 ,Cl, 
A9,AO,99 f El t Cl,8A l D0,F2 f 8C, 
EO,Cl,2O,73,00 H 

1005 DATA AA,F0,D3,88,84.3A.90,55 

1006 DATA 49467,49629, 19950, 4C, 



20O 



210 



4815 

3548 
2619 
4864 

3378 
2849 
21 18 
3013 
2700 
4388 

3342 
4261 

3478 

5764 

4675 
6582 

6O07 



1004 



1991 
6332 



6106 
5541 



2231 
6096 



2619 

478 
2004 

2427 

1735 
830 



1007 
1008 
1009 
1010 
1011 
1012 
1013 



1999 
2000 



2001 



2999 
3000 



3001 



499S 
4999 
5000 



96,A4,4C,08,AF,20,6B,A9,20, 
79,A5,84,0B,AQ 

DATA 00, 84,08, 84,45,84,46, 5766 

84,09 t C8,BE,FF,0l,F0,38,A5, 
08, 30,OC,EO,20 

DATA F0,F2,E0,3A,F0,OC,EO, 5954 
8F,F0 t 28 f E0,22,D0 f O2,49 f 80 ( 
09,01, 85 2 08,8A 

DATA A6,O9,F0,O6,OA,69,OO, 6365 
CA, DO, FA, 18, 65, 45, 85, 45, 90, 

02, E6.46,E6.09 

DATA A5.G9.29.07.85,09, 10, 6099 
C2,46,08,90,21,AO,FF,8C,EO, 
C1,A2, 14,20, B9 

DATA Cl.C8,A9,BD,99,E2,Cl, 5428 
A9,BE,CS,99,E2,Cl ,C8,A2,45, 
20,B9,C1,A9,BB 

DATA 99,E2 Z C1,4C,A4,A4.84, 6286 
08,B5,06, 85,63,85, 01 ,85,62, 
A2, 90, 38, 20, 49 

DATA BC,20.DF,BD,A4,08,AA, 5164 
C8,BD,00,01,F0,08,09,80,99, 
E2,C1 ,E8 ,D0,F2,60 

DATA 49152,49186,5131, AD, 03, 6223 

03, C9,CO,DO,09,AP,DE,C1,AE, 
DF,C1,4C,27 n 

DATA C0,8D,DF,C1,AD,02,03, 5136 

8D,DE,C1 ,A9,A0,A2,1F,9D,E2, 

CI ,CA,10,FA 

REM EINGABESICHERUNG 

DATA 49285, 49322,4626, AD, El, 5845 

CI , DO, 21 ,8D,20,DC>,8D,21 ,DO, 

A5,DA,30,0E . n cnnc 

DATA 09, 80,85, DA, AO, 27, A9, 5995 

20,99, 2$, 04,88, 10, FA, A6,D6, 

DO, 05, A9, 11 ,20,35,EB 



DATA ,49293,49295 , 702 ,EA,EA, 2948 
EA, 



I kasssetteversionen skal 
folgende linjer sndres til: 

200 PRINT "[ DOWNlFERTIG. ":PRINT 4926 

"I DOWN | SKAL 
MASKINKODEPROGRAMMET GEMMES 
210 INPUT "PAA KASSETTEN 3666 

I 2SPACES ] J I 3 LEFT] ": AS: IF A$< 

>"J" THEN 300 
220 SYS 57812"49152 KORREKTOR' 1 . 5738 

1. I: POKE 193,0:POKE 194,192: 

POKE 174,222 
230 POKE 175,193:SYS 62957:PRINT 5050 

"SPOL VENLIGST BAANDET 
TILBAGE OG 
240 INPUT "TRYK RETURN": AS: 3654 

VERIFY "49152 KORREKTOR". L 



KONTROLSUMS PROGRAM V1C-20 

110 S=PEEK (648):SC=S*256+506: 4419 
C0=(S AND 3 OR 1481*256+ 
506 

120 AS=PEEK (56>*256+PEEK 

(55)-209 
1 30 SA=AS 

140 DEF FN H(X)=INT ((SA+X)/ 
256) 

150 DEF FN L(X)=SA+X-256*FN 
H(X) 

60 PRINT "STARTADRESSE: SA 
200 S=SA:F=0 



205 READ 
300 



A:F=F+A:TF A<0 THEN 



210 POKE S,A:S=S+1 



300 
310 



IF A= 
IF A= 
320 IF A= 
330 IF A- 
340 IF A= 
350 IF A : 
360 IF A 
256)* 
370 IF A 
256) 
380 IF A 

256) 



=-2 



=-1 THEN A= 
A= 

A : 

A ! 

A 

A 



THEN 
-3 THEN 
-4 THEN 
THEN 
THEN 



GOTO 
FN L 
FN H 
FN L 
FN H 
FN L 
FN H 



205 
.61) 
.61) 
,35) 
,35) 
36) 
361 



-5 

-6 _ 

-7 THEN A=SC-INT (SC/ 

-8 THEN A=INT (SC/ 



-9 THEN A=CO-INT (CO/ 
256 



1886 

1807 
1706 
1714 
1778 
1.786 
1826 
1834 
3135 

1905 

3176 




460 

499 
500 

1000 



1001 
1002 



IF A=-L0 THEN A=INT (CO/ 2308 1003 
256) 

IF A=-l I THEN A=FN L(50) 1544 
IF A=-12 THEN A=FN HC50) 1560 1004 

IF A=-13 THEN A=FN L(37 1800 
IF A=-L4 THEN A=FN H(37) 1816 
IF A=>0 THEN 210 1199 1 005 

IF FO20105 OR S-SAO208 6046 
THEN PRINT "DATA-FEJL! ! ! ", 
"KONTROLLER VENLIGST" : END 1006 
IF SA=AS THEN POKE 55, FN 2798 
L(0>:POKE 56, FN H(O) 

REM EIMSCHALTEN 1007 
POKE 1,FN L(0):POKE 2. FN 2320 
H(0):CLR :PRINT USR CO) 

DATA 173,3.3.201,-2,208,8, 7659 1008 

173.-3,-4,174.-5,-6,208, 

13,141.-5,-6,173,2,3 

DATA 141,-3.-4,169,-1,162, 7397 1009 

-2.141,2.3.142.3,3,0,131, 

196, 160,5. 169,52, 1$3 

DATA -7,-8,153,-9,-10,136, 6978 1010 

16,247,173.3,144,41,1^8,9, 

48,141,3,144,96 



DATA 32,-11,-12,32,96,197, 
134 ,122.132 123 32 -lL- * 
14,l69 | 62 t l4i / -J r -4.32 F 
DATA 115.0.176,240,235. 
62,255,134.58,144 3. 7fL 
150, 196, 32, 107,201.32. lil 
DATA 197,132,1 1, 166,0,132, 
8,132,69.132.70.132,9 200 
190,2^5. {,24^,5^,165 ' ' 
DATA 8,48.12.224.32.240, 
242,224, 5§, 2 4o,li, 2*4, l43, 
240,40,224.34.208 2 
DATA 73,128,9,1.133.8,138, 
166,9,240.6, 10, 105, 0.^02. 
208,250,24,101.69,135 
S A TMK l4i ; 2 ? J 30, 70.230, 
9,165.9,41,7.133.9.16,194, 
70,8, U4,2j,l65, Jo' 
DATA 133,98,165.69.133.99, 

?^,^;:9V 00 ' 20§ ' 245 ' 7 ^ 



7987 
6784 
6659 
6385 
6436 
6734 
6508 
3213 



KONTROLSUMSPROGRAM PLUS4/C16 

100 TRAP 410: RESTORE 
110 DATA OC. 10, CI , 07, 9E, 20,34, 

31 33 38 

120 DATA^O,00,00,AD,E5,07,C9, 

130 DATA CE,E5,07,AD,E8,07,C9, 

18, DO, 03 
140 DATA CE,E8,07,A9,00,8D,F1, 

07,4C,0E 
150 DATA CE,A9,39,8D,02,03,A9, 

10,8D,03 
160 DATA 03,A9,ll,85,2C,6O,A2, 

10,8E.l$ 
170 DATA 03,A2,FF,86,3A,20,5A, 

88,86.3B 
180 DATA o &4^3C,AD,CO,OF,C9,AO, 

190 DATA i9^BD,CO,OF,9D,CE,0F, 

A9 AO 9D 
2O0 DATA CO,0F,CA,lQ,F2,2O,73, 

04,AA,F6 
210 DATA D3,9O,03,4C,25,87,2O, 

3E,8E,2& 
220 DATA 53.89,84,0B,AO,0O,84, 

08,84,45 
230 DATA 84, 46, 84, 09, 88, C8, 20, 

A5,04,AA 
240 DATA F(),38,A5,08,3(),0C,EO, 

20,F0,Fl 
250 DATA EO,3A,FO.OC,EO,8F.FO. 

28,E0,22 
260 DATA DO, 02, 49, 80, 09, 01 ,85, 

08,8A,A& 
270 DATA 09.FO,06,0A,69,0O,CA, 

D0,FA,18 
280 DATA 65, 45, 85, 45, 90, 02, E6, 

46,E6,0$ 
290 DATA A5, 09,29, 07, 85, 09, 10, 

Cl,46.0& 
300 DATA 90,I7 T A0,FF,A2,14,20, 

DB,10,C8 
310 DATA A9,BD,99,C0,0F,A2,45, 

20,DB,10 
320 DATA A9,BB,99,C0,0F,4C,36, 

87,84,0& 
330 DATA B5,00,85,63,B5,01 ,85, 

62,A2,90 
340 DATA 38,20,CE,A2,20,71 ,A4, 

A4,08,AA 



L6 


350 




360 


952 




2920 


370 


2514 






380 


2258 






390 


2462 




2837 




400 


2899 




2732 






410 


3273 




3074 


420 


430 


2796 




2812 


440 


2997 






450 


2956 




2747 


460 


2711 






470 


2381 




2780 




2912 




2711 




2772 




2902 




3016 




2538 





UA1A C»,BD,UU,U1 ,F0,O8.OSt, 

80,99, d - * ' * 

DATA OF,E8,D0,F2,60,O0,00, 

PRINT "( CLR | GEM PROGRAMMET 

TNDEN DU STARTER 

PROGRAMMET FOKSTE 

GANG! ! ! !! MlDOWN] 
N=N+ 1 :READ AS:A=A+DEC 
(A$):IF LEN <A$>=2 THEN 
380 

PRINT "DATA-FEJL 1 2SPACES ] : 

[RVS|"A$:POKE 1264, PEEK 
(63):P0KE 1265, PEEK (64 5: 
POKE 1263,1 

A=PEEK (65)+PEEK (66 5*256- 
LEN (AS)-l:POKE 1269, A AND 
255:POKE 1270,A/256:HELP : 
END 

IF ER=30 THEN PRINT "BREAK 

KAN CRASH *E 

PROGRAMMET! ! ! 1 ! ! !":END 
IF ER=14 THEN RESUME 390 
IF ER013 THEN PRINT 
"LINJE-INDTASTNINGSFEJL": 
SYS :END 

IF N<>259 OR A027332 THEN 
PRINT "KONTROLSUMS FE J L . 

CHECK DATALINJEK" :END 
RESTORE :FOR A=4097 TO 
4354: READ AS: POKE A, DEC 
(AS):NEXT 

PRINT "KONTROLSUMS KAN NU 
CEMMES PAA BAAND[ 5SPACESI 
ELLER DISKETTE. 



3010 
1838 
6023 

3054 
4417 

5877 

4239 



1349 
3810 



5714 
3056 
5199 
1774 




Til Commodore 64/128 

DI SKETTEHJ * L P 

60 REM **-i**A-AftvVVfVrir-,!f*A*Vr*Vf*>Wt 

70 REM * MENU 



80 REM 



■f * * * tfc * a- * ** ft ** * *** 



*********** 

90 : 
100 : 

111) POKE 53280, 7:POKE 53281 .7: 

PRINT " " 
120 PRINT " 

DISK HJ 



CLR|";CHRS (158); 
HOME, 2 DOWN, 2 RIGHT] 
LP FOR CBH 64/ L 54 I 
& MPS 801" 
130 PRINT "I2RLGHT,4CBM T) 



[CBM Tl 



3 : 

(DISK) 

4 : 

(DISK) 

5 t 



5 CBM T ,3 CBM T 
3CBM T ,7CBM T 
3CBM T 3CBM T 
140 PRINT "[2DOWN,2RIGHTl I S 
DISKNAVN & FREE[2SPACES] 
( SK I RM/ PRINTER)" 
150 PRINT ,, lD0WN,2RIGHT|2 : 
D 1 RECTORY I 8SPACES] 
(SKt RM/ PR INTER)" 
160 PRINT [DOWN ,2 RIGHT] 
RENAME FI Ll /SPACES. 
170 PRINT "lD0WN,2RIGUT 
RENAME BAMI7SPACES. 
180 PRINT "[DOWN, BRIGHT 
SLETTE I 2SPACES | F 1L 
(6SPACES](D1SK) 
190 PRINT "[D0WN,2RIGHT]6 : 
VALIDATE IHSK[4SFACESl 
(DISK) 

200 PRINT "1D0WN,2RIGHT]7 : 
LINE FEED|8SPACES] 

(PRINTER) 
210 PRINT "[2D0WN,2R1GHT|8 : 

AFSLUTTE PROGRAM 
220 POKE 53280, 0:POKE 53281,0 
230 GET X?:X=VAL (X?) 
240 ON X GOTO 320,1080,1620. 

1760,2290,2520,2590,2700 
250 IF X<1 OR X>8 THEN 230 
260 : 

970 REM & # M l # A #&t»&Lh ' *# ' & : M#&m ' &* 

* * ** * *** * 
280 REM * PRINT DISK NAVN & FR 

EE TIL * 
290 REM * SK[RM ELLER PRINT 

ER * 

300 REM "«***-A-.VAVf*Vci-iVi-*VcifAV(sVTt 

310 ; 

320 CLR : PRINT " I CLR ,61>0WN ] " ; 
TAB(243);"UDSKR1FT TIL 
iRVSlS OFFlKlRM ELLER 
[RVS1P OFF 1 RINTER" 

330 GOSUB 2430 

340 IF A$»"S M THEN XX=0:GOSUB 

2810:GOTO 370 
350 IF AS="P" THEN XX=L:GOSUB 

2810:GOTO 370 
360 GOTO 330 
370 OPEN 15.8. 15 
380 OPEN 2,8,2,"#" 
390 PRINT#15, M U1":2;0: 18;0 
400 PR1NT#I5.' , B-P rt :2;l44 
4L0 FOR 1=0 TO 22 
420 GET #2.B$ 

430 LF BS=* n THEN B$=CHRS (0) 

440 A=ASC (B$) 

450 IF A>127 THEN A=A-128 

460 IF A<32 OR A>95 THEN A=63 

470 IF A=34 THEN A=63 

480 NAVN$=NAVN$+CHR$ (A) 

490 NEXT T 



3159 
4015 

4294 

4451 

3945 

2684 
2700 
2765 

2986 

3141 

2540 

1436 
1366 
4101 

1416 



5114 



605 
2898 

2810 

572 
1060 
1023 
1816 
1515 

890 

696 
1205 

500 
1923 
1757 
1260 
1698 

276 



50O CLOSE 2 
510 GOSUB 530 

520 CLOSE 1: CLOSE 15:GOSUB 
2420:GOSUB 930:GOTO 100 

530 PRINT#15,"M-R" CHRS (250) 
CHR? (2) CHR? (3) 

540 GET /M5,XS:NL=ASC (XS+CHRS 
(0)) 

550 GET #15, X? 

560 GET #15 T X$:NH=ASC (X$+CHR$ 
(0)) 

570 CLOSE 15:CLOSE 2 
580 IF XX=1 THEN 690 
590 GOSUB 610 

600 GOSUB 2420: GOSUB 930: GOTO 
100 

610 FRl=256*NH+NL 

620 PRINT "ICLR ? 4D0WN]" 

630 PRINT "[2DOWN,9RIGHTlDlSK 

ID. "; RIGHT? (NAVNS,6) 
640 PRINT *M 2D0WN,9RLCHT|D1SK 
NAVN: IRVSl": LEFTS 

(NAVNS,16); , M0FF]" 1(l 
650 PRINT ft [2DOWN f 8RIGHT]"s 

FRI : "BLOCKS FREE" : GOTO 660 
660 X=664-FRI 
670 PRINT " [ 2DOWN .9RIGHT ] 

UDNYTTELSESGRAD =":INT (X/ 

664-'" 1 00 );"%": RETURN 
680 RETURN 
690 OPEN 4,4 
700 FRI=256*NH+NL 
710 PRINT#4. "DISK ID. M J RIGHT? 

(NAVNS.6); 
720 PRINT#4,CHRS (16)"15DISK 
NAVN: ft ;CHR$ (18): LEFTS 

(NAVNS , I 6 ) :CHR$ <146); 
730 IF FRI=664 THEN 800 
740 IF FRK9 THEN 770 
750 IF FRK99 THEN 780 
760 IF FRI>99 THEN 790 
770 PRINT#4,CHRS (16); "46": 

FRI ; n FREE|2SPACES|";:C0TO 

810 

780 PRINT#4,CHR$ <16):"45 n ; 

FRI:" FREE[2SPACES) M : :GOTO 

810 

790 PRINTM,CHRS <16>;"W; 

FRI;" FREE(2SPACES]";:G0T0 
810 

800 PRINT#4,CHRS <18):CHR$ 

( 16);"44";FRI:CHR$ <146): 1 ' 
FREE|2SPACESl": :G0TO 810 
810 X=664-FRI:PRINT#4, 

"UDNYTTELSESGRAD =" ; INT 

(X/664*100);"% M 
820 PRINT "[CLR,l0D0WN,3RIGHTl 

0NSKER[2SPACES]DU 
LINTESKIFT P] PRINTER ? M 
830 PRINT " [5DOWN,15RIGHT,RVSl 

Jl0FF]A / [RVS|N[OFFlEJ M 
840 GOSUB 2430 
850 IF A$="J M THEN PRINT#4: 

CLOSE 4 
860 IF A$='*N" THEN CLOSE 4: 

RETURN 
870 RETURN 
880 : 
890 REM 

900 REM * L[S FEJL & STATUS 
KANAL * 

910 REM ^***^****v^**i*->-^v-^-* 

920 : 

930 OPEN 15,S,15:INP"UT#15,EN$, 

EMS,ET$,ESS 
940 PRINT M [CLR,10DOWNl" SPC( 

14)"[RVSiDISK FEJL10FF ]": 

GOSUB 980 



260 
580 
2422 

2422 

2250 

810 
2242 

759 
1169 

574 
1415 

1550 
571 
3591 

4589 



4240 

1025 

5245 



142 
600 
1550 
2472 

5136 



1434 
1063 
1172 
1142 
3406 



3398 
3390 
4430 
5610 
4656 

3848 

605 
1576 

1756 

142 



2980 
3577 



960 



970 
980 



990 
10O0 
1010 
1020 

1030 

1040 

1050 

1060 

1070 
1080 

1090 



1300 
1110 
1120 

1130 
1140 
1150 

1160 
1170 
1180 
1190 
1200 
1210 

1220 



1230 

1240 
1250 



1260 

1270 
1280 

1290 

1300 
1310 
1320 
1330 

1340 

1350 

1360 
1370 
1380 
1390 
1400 
1410 
1420 

1430 



PRINT TABU60) SPC( 
11)"RESET FLOPPY DISK": 
GOSITB 242G:COTO 100 
PRINT "[8D0WN]" 
PRINT TAB(120)"FEJL 
l2SPACESj";ENS; u , ";EMS;" 

,SP0R ";ETS: rt , BLOK 
ESS:CLOSE 15 
RETURN 



REM » » '* »* *' ft fc^* i A ' A ' ** , . * *-***i ic r A 
REM * 

#■ 

REM * SKRIV DIRECTORY TIL 

SK ( RM * 
REM * 

REM ** **** ** * * * * * -a * * ** ft *?* 

******** 

PRINT "[CLR,10D0WN, 
9SPACES JONSKET DIRECTORY 
TIL" 

PRINT "[2D0WN,9SPACES,RVS] 

S(0FF]K[RM ELLER [RVS|P 

[ OFF ] RINTER" 

GOSUB 2430 

IF AS="S" THEN 1140 

IF AS="P" THEN GOSUB 2860: 

GOTO 1350 

GOTO 1100 

PRINT " [ CLR] " : 

OPEN 2,8,I5:0PEN 1,8,0, 

"$0" 

GET #1 , CS, BS 
GET #I,CS- s 
GET #1,C$ 
C=0 

IT CSO"" Th. C=ASC (CS) 
IF B$0"" THEN C=C+ASC 

(B$)*256 

PRINT SPC(6)"lRVSl" MIDS 
( STRS (C),2);TAB(11):" 
[OFF "; 

GET #1, BS: IF STO0 THEN 
1320 

IF BSOCHRS (34) THEN 1230 
GET #1, BS: IF B$OCHR$ 
(34) THEN PRINT B$::G0T0 
1250 

GET #1.58: IF BS=CHR$ (32) 
THEN 12 60 

PRINT TAB ( 1 ); :C$=" M 
CS=CS+B$:GET #1,B$:IF B$<> 

THEN 1280 
PRINT TAB(29)"[RVS] M LEFTS 

(C$,3) 

GET T$:1F T$0"" THEN 1170 
IF ST=0 THEN 1170 
PRINT "BLOCKS FREE" 

CLOSE 1 :CLOSE 2: PRINT : 

PRINT 

GOSUB 2420:GOSUB 930:GOTO 
100 

OPEN 2,8,1<5:0PEN 1,8,0, 

OPEN 4,4 
GET #1,CS,B$ 
GET #1,CS,B5 
GET #1,C$, B§ 
C=0 

IF CSO"" THEN C=ASC (C$) 
IF B5<>"" THEN C=C+ASC 
<B$)*256 

PRINT#4,CHR5 (16):"20"; 
MIDS ( SIRS (C),2); 



3533 



867 
5657 



142 



2846 
304 7 



605 
1533 
2268 

563 
495 
2088 

788 
788 
788 
360 
1534 
2153 

2859 



225 1 

1588 
3112 



2598 

1351 
2902 

1684 

1958 
1161 
1494 
885 

1415 

2088 

600 
788 
788 
788 
360 
1534 
2153 

2599 



1450 
1460 



1470 

1480 

1490 

1500 

1510 
1520 
1530 



1540 
1550 
1560 

1570 

1580 

1590 

1600 

1610 
1620 
1630 

1640 

1650 

1660 

1670 



1680 
1690 
1700 

1710 

1720 

1730 

1740 



IF BSOCHRS (34) THEN 1440 
GET #I,BS:IF BSOCHRS 
(34) THEN PRINT#4,CHRS 
(16):"25";B$;:G0T0 1460 
GET ffLBSsIF BS=CHR$ (32) 
THEN 1470 

PRINT#4, CHRS ( 16) ;"44": : 
CS= M " 

C$=CS+B$:CET #1,B$:IF BSO 
"" THEN 1490 
PRINT*4,CHR$ ( 16);"44"; 
LEFTS (C$.3) 
REM G0SUB249 
IF ST=0 THEN 1380 
PRINT#4," BLOCKS FREE": 
CLOSE 1: CLOSE 2:CL0SE 4: 
GOSUB 2420:GOSUB 930:GOTO 
100 



REM ****-^* J ~%*##*ir** ****** 
******** 

REM * 

REM « RENAME FIL ELLER PR 
G * 
REM * 

REM *'tt**ir***********i<*-!rj{* 

*** ***** 

■ 

PRINT "ICLR,10DOWN]" : 
INPUT "[ 7SPACES ]GAMMELT 
NAVN" ;GN$ 
IF LEN (GN$)>16 THEN CLR : 
GOTO 1620 

INPUT " [ 3 DOWN , 1 1 SPACES ] NYT 

NAVN";NN$ 
IF LEN (NN$)>16 THEN CLR : 
GOTO 1620 

GOSUB 2810:OPEN 15,8,15, 
"R:"+NN$+"="+GN$:CLOSE 15: 
GOSUB 2420:GOSUB 930:GOTO 
100 



REM *********ft*tt***ft:iS^tt** 
ft** * * 1 ** * 1 

REM * 

* 

REM *UDSK1FT BAMHOVED, ID & 

FORMAT* 
REM * 

* 

REM **# ft* # A tt*M ^ 



1750 
1760 
1770 



OPEN 15.8,15 
PRINT "|CLR,5SPACES] 
UDSKIFT BAMHOVED - ID & 
FORMAT" 

1780 PRINT "|5SPACES,7CBM T] 
[8CBM T,3SPACES,2CBM T| 
[CBM T] [6CBM T|" 
GOSUB 2160:COSUB 2060 



1790 
1800 



PRINT SPC(3)" OFF, HOME, 
9DOWN , 6SPACES NYT DISK 

NAVN [ 6SPACES ID[4SPACES] 
FORMAT [DOWN 1" 
1810 DIM DS(20):T=4:A=16:S=1 : 

GOSUB 1930 
1820 C$="[ 1 6SPACES] " 
1830 C=LEN (CS)-LEN (ASU )): 

. A5<1)=A$<1)+RIGHT$ (C$.C) 
1840 AS=AS<1)+"[SHIFT-SPACE fi 4 
ASC2J+" "+A$(3)+" 
I 2SH1FT-SPACE j" 
1850 OPEN 1,8.15:0PEN 2,8,2,"*'* 



1652 
4602 



2614 
2177 
2910 
2268 



1163 
4061 



1236 
2272 

2146 

1888 

2202 

5562 



1060 
3227 



3329 



1160 
3574 



2716 

902 
3200 

3072 
1987 



1860 
1870 
1880 
L890 

1900 
1910 
1920 



1930 
1940 
1950 



1960 
1970 



1980 
1990 



2000 
2010 

2020 

2030 
2040 

2050 
2060 



2070 
2080 
2090 



2100 
2110 



2120 
2130 
2140 

2150 
2160 
2170 

2180 
2190 



t J RINT#l, H Ul: M :2:0;18:0 

PRINT#1,"B-P:";2;144 

1 J UINT#2,A$; 

PRINT#1,"U2:":2;0;I8;0: 
PRINT*!, "I" 

CLOSE 2: CLOSE 1 
GOTO 2110 

FOR T=i TO 34:GET #2,B$: 
PRINT B$;:NEXT :CLOSE 2: 
CLR :COSUB 2420:COSUB 930: 
GOTO 100 

POKE 2I4,10:PR1NT :PRINT 
SPC(T+Y)"|CBM +1" 
GET GS::D$(Y)=G$:1F GS="" 
THEN 1940 

IF PEEK (197)=0 AND Y>=1 
THEN Y=Y-1 :POKE 214,10: 
PRINT TAB<T+Y)"lDOWN, 
CBM +| ": GOSUB 2040: GOTO 
1940 

TF PEEK (197)=0 THEN 1940 

IF PEEK (197 J=l AND Y>0 

THEN C$= n,, :FOR X=0 TO Y-l: 

C$=C$+D$(X):NEXT ^SCS)- 

CS:COTO 2010 

TF Y=A THEN 1950 

IF PEEK (197)>1 THEN POKE 

214,10:PRINT :PRINT TAB(T+ 

Y)D5(Y)* M [CBM +]":Y=Y+l 

GOSUB 2040:GOT0 1940 

TF T=4 THEN T=25 : A=2 :S=2 : 

Y=0:GOTO 1930 

TF T=25 THEN T=32 :A=2 :S=3 : 

Y=0:GOTO 1930 

RETURN 

POKE 198,0: TF Y=-l THEN Y= 
0 

RETURN 

PRINT SPC(3)"|0FF,3D0WN, 
3SPACES JCL.DISK NAVN 
I 7SPACES | I D | 4SPACES ] 
FORMAT" 

OPEN 2,8,0, "$":PRINT " 

iDOWN^SPACESr 1 ; 

FOR T=l TO 34:CET #2,B$: 

SS=S$+BS:KEXT 

PRINT LEFTS (S$,23 )"[OFF. 

3SPACES,RVS^ ,, MTDS (S$,24, 

4):"[0FF,4SPACES,RVSl"; 

MID? (S$,28,4) 

CLOSE 2: RETURN 

CLR :PRINT SPC(3)" |OFF, 

2DOWN,3SPACES|KONTROL NAVN 

I 7SPACES1TDI4SPACES1 

FORMAT" 

OPEN 2-8,0. "$":PRINT " 

IOOWN,5sPACESl n ; 

FOR T=l TO 34:GET #2,BS: 

S$=S$+B$:NEXT 

PRINT LEFT'S (S$ ,23 )" [OFF . 

3SPACES,RVSl" MID$ (SS,24, 

4):"(OFF,4SPACES,RVS]"; 

NIDS (S$,28,4) 

CLOSE 2:GOSUB 2420:G0SUB 

930:GOTO 100 

PRINT ,, lHOME,5DOWN,4RIGHT, 
3 3 SHI FT *J M 

PRINT n |4D0WN,3RIGHT]u 
16SHIFT *Hl3SPACES|u 
2SHIFT 3SPACESlu 
2SHIFT *Jil2SPACES]" 
PRINT "| 3RICHT, SHIFT 
16SPACES. SHIFT -,3SPACES, 
SHIFT -.^SPACES, SHIFT 
3SPACES, SHIFT - . 2SPACES, 
SHIFT -.2SPACES " 
PRINT "[ 3RIGHT] j 
16SHIFT ---]k[3SPACESl j 
2SHIFT *lkl 3SPACES] i 
2SHIFT *]k[2SPACES] rt 



1685 
1428 
607 
2429 

516 

573 
4377 



1940 
2543 
6405 



1706 
6227 



969 
4233 



1271 
2948 

3505 

142 
2071 

142 
3627 



1824 
2518 
3987 



2200 PRINT "1 2DOWN, 4R1GHT, 
33SHIFT *,HOME]" 
RETURN 



2210 

2220 
2230 

2240 

2250 

2260 

2270 

2280 
2290 
2300 

2310 

2320 

2330 

2340 
2350 
2360 

2370 

2380 

2390 

2400 

2410 
2420 



2430 
2440 
2450 
2460 



3416 
142 



REM * *' &'l A-* r *&A ft 

******** 

REM * 

REM * SLETTE FIL 

*■ 

REM * 

REM ********************** 

******** 

PRINT "LCLR,10DOWN] M : 
INPUT "SLETTE HVILKEN FIL 
";SF$ 

IF LEN (SF$)>16 THEN CLR : 
GOTO 2290 

OPEN 15,8,15,"S: M +SF$: 
CLOSE 15 

GOSUB 2810:GOSUB 2420: 
GOSUB 930:GOTO 100 



REM ********************** 
******** 

REM * 

REM * HIT ANY KEY TO CON 
TtNUE * 
REM * 

* 

REM ********************** 
******** 

PR'INT M [H0ME,24DOWN, 
8SPACES,RVS]HtT ANY KEY TO 

CONTINUE [ HOME 1 " 
GET A$:tF A$=" r ' THEM 2430 
RETURN 

REM ***** Jl»A'A^»*^»' Aft 
******** 

REM * 





2490 


608 




3388 


2500 




2510 




2520 


1824 




2518 


2530 




2540 


3987 


2550 




2560 


1867 


2570 


3243 


2580 




2590 


3378 






2600 




2610 


2637 


2620 




2630 




2640 


2854 






2650 




2660 




2670 



2470 
2480 .REM # 
REM * 



VALIDATE DISK 



REM A A * ft ** 

******** 



GOSUB 2810:OPEN 15,8,15, 
"V":CLOSE 15:G0SUB 2420: 
GOSUB 930:GOTO 100 



REM fe* A* A*** A* 1 ** A* A A A** A A ft 
********* 

REM * LINIE FEED PRINTE 
R * 

REM ** * ** **^nWr**** * * * * * * **? 

* ** * * 

PRINT "|CLR,6DOWN,9RIGHT| 
HVOR MANGE LINIER " 
PRINT "| 2DOWN.8RIGHT1SKAL 

PRINTEREN G] ?" 
INPUT "12DOWN, 12RtGHT]":LN 
PRINT "[2DOWN, 10RIGHTI": 
I.N ; " LINIER." 
PRINT "[ 2DOWN, lORICHTlER 

DU SIKKER ?" 
PRINT "12DOWN, 12RIGHT,RVS) 
JlOFFlA / [RVSlNlOFFlEJ" 
GOSUB 2430 
IF A$="J" THEM 2680 
IF ASO'U" THEN 2590 



1236 

2435 

2183 
2326 
2241 



4690 



1552 

142 



4052 



3359 

3400 

2325 
3286 

3306 

2780 

605 
1527 
1511 




2740 
2750 

2760 



OPEN 4.4: FOR L=0 TO LN: 
PRINT#4:NEXT : CLOSE 4: 
GOSUB 2420:GOTO 100 



REM A*V.-ft*AAyrV.-V«VAV ( *V«VVi-V.'V;d:iW< 

REM * ( AFSLUTTE PROGRAM 

w 

REM ******* 

PRINT "ICLR,10D0WN, 3979 
1 1 RIGHT ER DU SIKKER ?" 
PRINT "[2D0WN,14tUGHT,RVS| 3077 
J|0FF|A / |RVS]N[OFFlEJ" 



2770 GOSUB 2430 605 

2780 IF AS="J" THEN PRINT " 1614 

[ CLR ] " * : END 

2790 IF A$" A N n THEN 100 1481 

2800 GOTO 2770 645 

2810 : 

2820 REM ****-*********rick1e**K*ie'k 

****** 

2830 REM ARBEJDER 

2840 REM **v.-Vr**A****AVrt-*Vf***>\--;ric 
****** 

2850 : 

2860 PRINT " [ CLR, I 2 DOWN. 3698 

10R1GHT] A R B E J D E R !" 
2870 RETURN 142 




120 



130 



140 



Til Commodore 64/128 

PAST SAVE 



100 K=53280:E=PEEK (10:0= 
49152:D=51017:GOSUB 340: 
POKE K.E 
HO PRINT "[CLR, DOWN] 
STEGBREDDE : 
INPUT "[DOWN] (AO) 
[ 2SPACES 1 TRACK 1 2SPACES 1 1 - 
1 71 3SPACES] 10|4LEFT|" :A(0) 
INPUT "[DOWN | (Ai ) 
2SPACES] TRACK 18-24 
3SPACES] 10[4LEFT] ";A( 1 J 
NPUT "[DOWN ] (A2) 
2SPACES I TRACK 25-30 
3 SPACES] 10|4LEFT]";A(2) 
150 INPUT "[DOWN] (A3) 
f 2SPACES] TRACK 31-35 
[3SPACES] 10[4LEFT]";A(3) 
160 PRINT "[ 2D0WN] (A4 ) 

[2SPACES]VERIFY" 
170 PRINT "[DOWN] 0(2SPACES] 

7KKE VERIFY" 
180 PRINT "[DOWN] 1[2SPACES] 

VERIFY UTEN FASTLOAD" 
190 PRINT "[DOWN ] 2[2SPACES] 
VERIFY MED FASTLOAD" 
INPUT "I 7UP, 16RLGHT]0 
1 3LEFT ] : A ( 4 ) : P R 1 NT " 
15DOWN]" 
210 INPUT "[ 2D0WN ] (A5) 

[ 2 SPAC ES I ROM / RAM- VERD I 
[3SPACES] 55[4LEFT] ";A(5) 



200 



220 INPUT 

[ 2SPACES 
I 3SPACES 



230 



DOWN] (A6) 
BLANKE SKJERMEN 

. NEI [5LEFT1 ";A$: 

A(6)=1:IF A$="NEI" THEN 
A(6)=0 

INPUT "[ 2 BOWK ] (A7 ) 
[ 2SPACES I BLINKE RAMMEN 
[ 3SPACES ] NEI [ 5 LEFT ] " ; A$ : 
A(7 )-l :TF AS="NEI" THEN 
A(7)=0 

240 FOR X=0 TO 7:P0KE 49300+X, 

A(X):NEXT 
250 PRINT "[CLR,2D0WN] LEGG 
INN EN DISKETT FOR A 
LAGRE[2SPACES,D0WN, 
7SPACES]DEN FERDIGE 
FASTSAVE " 
260 PRINT "(DOWN] OG TRYKK PA 
EN TAST";WAIT 19 7, 63: POKE 
198,0 

270 INPUT " [ 2 DOWN] FILNAVN:"; 

280 OPEN 2 ! 8,2,"0;"+AS+",P l W" 
290 PRINT#2,CHR$ (1);CHR$ (8); 
300 FOR X=C+1 TO D:P0KE K, PEEK 
<X) :PRINT#2,CHR$ ( PEEK 



(X)); :NEXT 

310 CLOSE 2: POKE K,E 1074 
320 OPEN 1,8, iS:IMPl?T#l,A,A$, 4576 
Q,Q:CLOSE 1:1F A=0 THEN 
PRINT "| 2DOWNI FERDIG! ! !": 
4519 END 

330 PRINT "(2DOWN] 5023 
DISKETTFEIL! !!": PRINT " 
1392 [ DOWN | TRYKK PA EN TAST": 

WAIT 197,63:GOT0 270 
3461 340 A=49152: I=0:J=0 1766 
350 FOR X=0 TO 15: READ B: IF B= 2773 
-1 THEN GOSUB 370: RETURN 
3520 360 POKE K,B:POKE A+T , B : 1-1*1: 3883 
J*J+B:NEXT :GOSUB 370:GOTO 
350 

3527 370 READ AS: IF AS<>J THEN 5801 
PRINT "FEIi. I DATASETNING 
:" PEEK (63)+PEEK (64)* 
3668 256:END 

380 J=0:RETURN 808 
390 DATA 0,11,8,0,0,158.50,49, 4882 
1381 54^56,0,0,0,160,48,185. 

1681 40O DATA 71,8,153,71,1,136, 6311 

208,247, 185,145,8,153,0, 
1795 248,185.145, 19&4 

410 DATA 9,153,0,249,185,145, 6324 
1979 10,153,0,250,185,145,11, 

153,0,251. 1899 
5150 420 DATA 185,145,12.153,0.252, 6948 

185,145. 13, 153. 0,253, 185, 

145,14,153, 19$3 
4403 430 DATA 0,254,200.208,211,76, 5588 

72.1.169,95,141,48,3,160, 

1,140, 1779 

6356 440 DATA 49.3,169,103.141,50, 5920 
3, 140,51 ,3. 169,111.76,30, 
171,120. 1489 
450 DATA 160,53,132,1.76,0, 5638 
240,120,160.53,132,1,76,0, 
6139 248.40, 1492 

460 DATA 67,41.32.82.85.78,13, 5635 
0^173^^3,201 ,64,208,7, 

470 DATA 49,3,201,1,240,8,169, 5909 
2474 44,l41^74,8,l4l,79,U&, 

5317 480 DATA 8,76,11.248.10,10,10, 5589 
10^0,55,0,0,160,51,185,25, 

490 DATA 248.153.48,253,136, 6434 
16.247.76.221.253.88.32, 
3810 125,213.169,128. 2406 

500 DATA 141.152,2,32,153,213. 6971 
120,96.165, 128.10, 10, ?6, ' 
1771 211,239.165, 1§13 

510 DATA 129.133,83,165,13, 6980 
2244 133, 129, 165 , 12 , Io.lfco,}, 

1644 165,140,153.253, 1846 

2805 520 DATA 245,153,7,246,200, 

208,24 7, 169,0, 153,54.246, 




153,55,246,152. 2534 
530 DATA 24,105,8,168,192,216, 

208, 239,%, 6,0, 32, 32,0,0, 

32, 1352 
540 DATA 32,16,16,48.48,16,16, 

48.48,0,32,0,32, 16,48, 16, 
432 

550 DATA 48,0,32,0.32,16,68. 

16,48.165, 186,20.1,8, 176;7, 

162, 1145 
560 DATA 36,160,246,76,96,249, 

201 , 12. 176,245, 160,0, 177, 

187,201,36, 2258 
570 DATA 240.237.173.21.208, 

72. 1 73, 1 7,208,72, 173,32, 

208,72,140.21, 2067 
580 DATA 208,120,173,17.208, 

41,7.73.7,141,65,250,173, 

0,221,41. 174$ 
590 DATA 15,133,140,141,136. 

254,9,32,141,101,250,141, 

169,254.173,9, 2098 
600 DATA 248.240,21,173,17, 

208,41,239,141,17,208,160, 

67,185,122,254, 2341 
610 DATA 153.179,254,136,16, 

247,48.11,160,67,185,46, 

250,153.179,254, 2338 
620 DATA 136,16.247.162,0,160, 

0. 185,88,248,5,140,157,0, 

244,185. 1975 
630 DATA 104,248,5,140,157,0, 

245,200, 152, 41,15, 168,232, 

208,232,32, 2179 
640 DATA 57,248,160,4,185,3, 

248,153.216,253,136,16, 

247,56,32,126, 2140 
650 DATA 249,32,84,3,24,32, 

126,249,120,160.8,162,0, 

202,208,253, 1912 
660 DATA 136.208, 250,32, 15 1 , 

250,104,141,32,208,104, 

141,17,208,104,141, 2227 
670 DATA 21,208.144,3,76,63, 

254, 173,7,248,201 ,2,208, 

31,162,63, 1864 
680 DATA 160,246,32,80,254, 

1 69, 1,1 33, 185, 162, 2 13, 160, 

255,32,80,254, 2416 
69CJ DATA 165,144,10,10,10,10, 

162,88, 160,246,76,96,249, 

162,63,160, 1811 
700 DATA 246,142,124,249,140, 

125,249,72,160,8.185,1 17, 

249, 153,15,1, 
710 DATA 136,208,247,104,76, 

16, 1 ,162,5.5,134,1,88,76, 

226,252.160, 1942 
720 DATA 152.190,63,3,185,31, 

247, 144,3, 185, 149,249, 153, 

63,3,138, 1958 
730 DATA 153,31,247.136,208, 

235,96,165,186,32,12,237, 

169, 111 ,32,185, 2235 
740 DATA 237,169,77,32,221. 

237. 169 ,45 ,76 ,221,237, 169, 

55,133.1,32, 2111 
750 DATA 231 ,255. 169,99, 133, 

139,169,251,133,140,169.0, 

133,141,169,3. 2334 
760 DATA 133.142,32,64.3.169, 

87.32,221,237,165,141,32, 

221,2^7,1^5, 2081 
770 DATA 142,32,221,237,169, 

30,32,221,237, 160,0, 169, 

53,120, 133,1, 1957 
780 DATA 177,139,72,169,55, 

133, 1 , 104.32.221 ,237,200, 

192,30,208,235, 2205 
790 DATA 32,254.237,165,139. 









800 


5008 






810 


D4D7 






820 


£.101 

6/81 






830 


6756 






840 


bLy 3 






850 


6663 






860 


bo!?6 






870 


7018 






880 


6031 






890 


£ 1 1 1 






900 








910 








920 


6429 






930 


5497 






940 


6482 






950 


6350 






960 


/2bV 






970 


61 35 






980 


6029 






990 


7042 






1000 








1010 


6463 






1020 


6458 






1030 








1040 


6307 






1050 


6306 





24,105,30,170,133.139,144, 

2,230. 140. 165. 2109 

DATA 141,24,165,30,133, 7060 

Ul, 144, 2. 230, 142, 165, 140, 

201,253.144.178, 2173 

DATA 224,221.144,174,32, 6527 

64,3, 169,69,32,221 .237. 

169,3.32,221, 2015 

DATA 237.169,3,32,221,237, 7398 

32,254.237,169,53,120,133, 

l,§6,l£2. 2136 

DATA 0,221.76,0,1.170,74, 6207 
74,74.74.153,140,132,143, 
172,18, 1502 

DATA 208,185,0.246,240, 6378 

248,141,0,221,189,0,244, 

14t ,-0-221 ,189. 2473 

DATA 0,245,234,141,0,22!, 6173 

166,140,189,0.244,141,0, 

221,189,0, 2131 

DATA 245,234.141,0,221, 6107 
162,32.164,143.200,142,0, 
221,196,100,208, 2409 

DATA 190,96,44,0,221,80,7, 6544 
169,192. 133,99,56, 176,20, 
173,0, 1656 

DATA 221,41,15,9,32,141.0, 5245 
221, 193, 0,193, 0,44,0, 221 , 
80, 1411 

DATA 251,24,162,10,202, 5722 

203,253,96, 169,0, 133,99. 

133,141,168,185, 2234 

DATA 79,251,153,0.1,200, 5990 

192,14,208,245,173,10,248, 

240,11,160, 2185 

DAI A 5,185,93,251,153,11, 6530 
1,136.16,247,162,188, 160, 
246,32,80, 1966 

DATA 254.201,127,208.4, 6482 

169,192,133,99,32.113,250, 

I 76,89,32,49, 2128 

DATA 251 ,192, 1, 176,9,201 , 6941 

255,176,5,162.128,134,99, 

44,169,254, 2256 

DATA 166,141,208,14,230, 6882 

141,32,49,251,24,105,2, 

144,1.200,76, 1784 

DATA 208,250,72,165,99,32. 6086 

43.251,104,32,43,251,169, 

254,166,141. 2280 

DATA 202,208,14,230,141, 6129 

165,172,32,43,251.165,173, 

32,43.251.169, 2291 

DATA 252.133.100,160,0,32, 7072 

182,254,165,172,24, 101, 

100,133,172,144, 2124 

DATA 2,230,173,36.99,16, 6051 

147,165,99, 10,10,96, 1 32, 

100,136,76, 1527 

DATA 185,254,165,174,56, 6960 

229,172,170.165,175,229, 

173,144,7,168,232, 2698 

DATA 208,1,200,138,96,165, 7013 

174,133,172,165,175,133, 

173,76,49,251, 2309 

DATA 174,8,248,134,1,177, 7066 
172, 162, *3, 134, 1,76,185, 
254,238,32, 2049 

DATA 206,76.185,254,76, 6350 
120,3.120,160,0,132,199, 
132,141,132.11, 1949 

DATA 173,121.5,41,1,141, 5344 

121,5,169,8,141,0,24,13,0, 

28, 991 

DATA 141,0,28,185.117,245, 5893 
153,122,5,200,192,1 17,208, 
245,160,0, 2118 

DATA 173,121,5,240,2, 160, 6335 
3, 169,76,153,222,5,169, 
114,153,223, 1988 




1060 DATA 5,169,4, 153,224,5,32, 5489 

77^4, 32^46,4, 120, 144, 17, 1330 

1070 DATA 0,28,41.16,208.5,169, 5463 

8, 76^5, 5, 1&9, §9, 7^25, 1340. 

1080 DATA 160.1,177,134,240. 6131 

245,133,128,162,0.201,18, 1350 
, 144,1.252,134. 2lf0 
1090 DATA 139,200,177.134,133, 6338 

129,32.108,5.76,24,4,169, 1360 
l,lh.l99. 1&63 
1100 DATA 169,6.133,49,32,117, 6890 

4,176,61.32.108,5,169,0, 1370 
172,0, 1233 
1110 DATA 6,208,12,32,12.5,176, 6152 

42,165. 129:i4i,l 6, 16$, ' 1380 
128,141. 1369 
1120 DATA 0.6.133,140,76.103,4, 6229 

1130 DATA 165.128.197,12,208. 6503 

23,166.140.240.16,173, 121, 1400 
5,208.14,76. 1892 

1140 DATA 120,3.169.114,208,19, 5648 

[6^0,246^5,169,0,44,169, 1410 

1150 DATA 199,174.121,5,240,3, 6498 

' 76, 152.246, 1$3. 1$9, 76, $, 1420 

245,162,0, 203$ 
1160 DATA 165,0,76.10,230,162, 6083 

2,142,0,24,136,208,253, 1430 

202,208,256, 2668 
1170 DATA 76,200,193,32,74,4, 4982 

32,46.4,160,0,177, 134,9, 1440 

128,145, 1414 
1180 DATA 134,160.28,165.141, 6159 

145,134.200,165,11 ,145, 1450 

134,32,43.4.169. 1§10 
1190 DATA 0,141.108,2.88,169,1, 6108 

133^28,76^148,195,31,18), 1460 

1200 DATA 6,201, 1 ,208.185, 165, 7402 

199,240,202,201,1 14,240, 1470 

184,208.237,169, 27$4 
1210 DATA 144.44,169,128,72, 6500 

169,18,133,12.173,97,2, 1480 

133,13,173,103, 1583 
1220 DATA 2,133,134,169,6,133, 6526 

135,104,32.203,4,201,2,96, 1490 

169,144. 1$67 
1230 DATA 44.169,128,72,169,18, 6390 

133,14,169,0,133,15, 169,0, 1500 

133,109, 1475 
1240 DATA 169.7,133,110,104.32, 6262 

200^4,201^2,96, 165,12,133, 1510 

1250 DATA 13,133,7,76,122,5,76, 5360 

163 j3^ 160, 0,140,6,24, 160, 1520 

1260 DATA 136,208,253,169,1, 5734 

14 1,0. 24,44, <), 24, 208, 251, 1530 
165.85, lb. 1$80 

1270 DATA 0.24,10,41,10,234,13, 5445 

0,24^41, 15,133,63,234,173, 1540 

1280 DATA 24, 10, 41, !CJ, 234, 13,0, 4876 

24^10, 10, 10,10,5,83,153,0, 1550 

1290 DATA 6,200,208,207,169.8, 5816 
141,0.24,173,0,6,201, 192, 
96,169. 1800 
1300 DATA 224.166,128,134,6, 6363 
166,129,134,7,162,0,44, 
162,4.44. 16$, 1671 
1310 DATA 3 .88, 32 ,125,213, 169, 7133 
128,141.152,2,32,153,213, 
120,96,165, 1832 
1320 DATA 128.10,10,76.211,239, 7080 
165,129,133,83, 165,13,133, 



129,165,12, 1 80 1 
DATA 10,10,32.211,239,8, 6753 
165,83,133,129,40,240,18, 
189,233,239, 1979 
DATA 73,255,49.109,145, 5777 
109,164,111 ,177,109,56, 
233,1.145,109.96. 1941 
DATA 169,22,133.64,165, 6686 
128,32,75,242, 133,83,165, 
129,24,125,117. 1826 
DATA 5,197,83,144,5,229, 6084 
83.76,29.5,133, 129,32,219, 
4,240. 1^13 

DATA 6,165,129,197,13,208, 7192 

55,230.129, 165,129,198,84, 

208,226,164, 2306 

DATA 128,166,139.240,4, 6701 

224,2,206,7,136,208, 13, 

160,19.208.7, 1869 

DATA 200,192,36.144,4.160, 6911 

17,230,139,132,128,152,32, 

75,242,169, 2052 

DATA 0,56,253,117,5,133, 6112 
129,165, 139,201 ,4, 144, 163, 
96.24.96, 1725 

DATA 165.128,133,12,165, 5533 
129,133,13.96,0,0,0,0,0, 
165,186. 1325 

DATA 208,7,162.19,160,247, 7O08 
76,96,249,201,3,240,245, 
144,91,169, 2317 

DATA 97,133,185,164,183, 6794 

208,4.162,16,208,233,162, 

213,160,243,32, 2403 

DATA 80,254,162.143,160, 6931 

246.32,80,254,165,186,162, 

12,160.237,32. 2365 

DATA 80,254,165,185,162, 6612 

185,160,237,32,80,254,165, 

194,133,173,165, 2624 

DATA 193,133,172.162,221. 7541 

160,2 37,32,80,254,165, 173, 

162,221,160,237, 2762 

DATA 32,80,254.165,144, 6180 

208,9,162,225, 160,255,32, 

80,254.206.7, 2275 

DATA 162.51.160,246,76.96, 6940 

24 9,76,120,248,16 2,89, 160, 

246,76,96, 2313 

DATA 249,8. 72, 142, 1 10,254, 7021 

140,111,254,160,20,185, 

101,254. 153,39, 2252 

DATA 1.136.208,247,76,40, 6144 

1 ,169,55.133,1 , 104,40,88, 

32,226, 1557 

DATA 252,120,8,72,169,53. 5764 
133,1 ,104,40,96,142,0,221, 
76,0, 1487 

DATA 1,170,74,74.74,74. 5646 
133,146, 169.0. 141 ,0,221 , 
189,0,244, 1704 

DATA 141.6,221,189,0,245, 6275 
234.141.0,221,166,140,189, 
0,244,141. 2272 

DATA 0,221,189,0,245,234, 6511 

141,0,221,162.32,200,196, 

100,208,263. 2352 

DATA 142,0, 22t ,96, 142,0, 3877 

221,76,0,1,-1, 899 





INPUT/OUTPUT 
DUMP A 



100 A=49152:I=0:J=0 

HO FOR K=0 TO 15 :READ B:IF B= 

-I THEN G0SU3 130:SYS 

49152:GND 
120 POKE A+I,B: 1=1+1 :J=J+B: 

NEXT :GOSUB 130:GOTO 110 
130 READ AS: IF ASOJ THEN 

PRINT "FEIL L DATASETNING 
:" PEEK (63)+PEEK (64)* 

2 56: END 
140 J=0: RETURN 

150 DATA 165,45,133,167.165. 

46,133, 168,76,2$. 192, 169, 

13,32,210,255. I 99S 
160 DATA 165.167.24,105.7,133, 

167, 165, 168, 105.0, 133, 168, 

32,225.255, 2019 
170 DATA 240,12.165,168,197, 

48.208.7,165, 167,197,47, 

208,1,96,160. 2086 
180 DATA 0,177,167,48.35,200, 

177, 167,48,55,32, 187,192, 

32,165,192, 1874 
190 DATA 24,165,167.105,2,72, 

165.168,105,0,168,104,32, 



F V 


A R 


1766 




■J** £ (J 




3660 


210 








220 


808 


230 


6669 






240 


6061 






? c ifi 

iJU 


6436 






260 


7312 






270 


6565 





LISTN1NGER 
I A B L E R 

162.187,32, 1658 
DATA 221,189,32.30.171,76, 
11,192,32,187,192,169,37, 
32,210,255, 2036 
DATA 3^,165,192,177,167, 
170,200. 177, 167.168, L38 f 
32, 145, 179,76, 79 ? 2264 
DATA 192,32,187,192,169, 
36,32.210.255,32.165,192, 
169,34,32.210. 2139 
DATA 255.177.167,240.24, 
133,169,200,177,167,133, 
34,200.177,167.133. 2553 
DATA 35, 160,0, 177, 34, 32, 
210,255,200,198,169,208, 
246,169,34,32, 2159 
DATA 210,255.76,11.192, 
169,32,32,210,255,165,211, 
201,4,208,245. 2476 
DATA 169,61,32,210,255, 
169,32,32,210,255.96,160, 
0,177.167,41, 2066 
DATA 127,240.3,32,210,255, 
200,192,2,208,242,96,-1, 
1807 



6829 
6770 
6892 
6988 
5906 
6750 
6569 
5256 



SORTERI NG 



DEMO 



330 DATA 252,104.133,251,76, 6362 

234,193,160,4,177,251,201, 

1.208,209,200, 2654 
340 DATA 177,251, 141,87.194, 6701 

200, 177,251,141,86,194, 

165,251 ,24,105,7, 2451 
350 DATA 141,91.194,169,0,101, 6454 

252,141 ,92,1.94,173,86,194, 

208,6,206, 2248 
360 DATA 86, 194, 76,82,194,206, 5296 

86,194,208,3,206,87,194, 

96,-1, 1912 

100 ANTALL=UH):MAX=5:DIM 2615 

AS(ANTALL) 
110 GOSUB 210:REM KONSTRUER VI 729 

LKAARLIG ARRAY: A NT ALL = A 

NTALL:LENGDE = MAX 
120 TIS= M 0O00O0": PRINT 3505 



MC . SORTER I NG 

100 A=4940O:l=0:J=0 
110 FOR K=0 TO 1 5 : READ B:1F B= 

-I THEN GOSUB I30:END 
120 POKE A*I,B:I=I+1:J=J+B: 

NEXT : GOSUB I 30: GOTO I 10 
130 READ AS: IF ASOJ THEN 

PRINT "FEIL I DATASETNING 
!" PEEK (63)+PEEK (64)* 

256:END 
140 J=0:RETURN 
150 DATA 32,217,193,76.169, 

193,104,104,160-0,185,18, 

193,240,6.32, 1922 
160 DATA 210,255,200,208,245, 

169-13,76,210,255,65,82, ' 

82,65.89.32, 2256 
170 DATA 69,82,82,79,82.0,173, 

91,194.133,251,24,105,3, 

133,253, 1754 
180 DATA 173,92.194,133,252, 

105,0,133,254,169,0,141, 



"SQRTERING STARTER": PRINT 
TI$ 

130 SYS 49400, A? 
140 PRINT "SORTERINC 

AVSLUTTET" : PRINT TI$ 
150 GET AS: IF A$=" M THEN 150 
160 PRINT :F0R 1=0 TO AN: PRINT 

A$(l):NEXT : END 
170 FOR 1=0 TO AN: FOR J=AN TO 

1+1 STEP -1 
ISO TF A$(J)<AS(J-1 ) THEN DUS= 

ASU):ASU)=A$(J-1 ):A$(J- 

l )=DU$ 
190 NEXT J, I: RETURN 
200 REM KONSTRUER ARRAY 
210 FOR 1=0 TO ANT ALL: LE=INT 

( RND (0)*MAX)+1:A$= U ":FOR 

J=l TO LE 
220 AS = RND (0 )*2 6+6 5 : AS ( 1 )= 

AS(l)+CHR$ (AS) 
230 NEXT J:PRINT A$(I),l:NEXT 

1: PRINT : RETURN 





190 


1526 




2576 


200 


3660 






210 


5801 






220 


808 




6484 


230 


6938 


240 


6516 


250 


6320 


260 



90,194,173,86, 2189 
DATA 194, 141 ,S8 ,194.173- 
87,194,141,89,194,96,160, 
0,177,251,141, 2320 
DATA 93,194. 177,253,141. 
94, 194,162,0,200,177,251, 
149,169,177,253, 2684 
DATA 149,171,232.224,2, 
208,242,96,173,93, 194.240, 
49,173,94,194, 2534 
DATA 240.23,160,0,177, 169, 
209,171,144,36,208,13,200, 
204,93.194. 2241 
DATA 240.28,204,94,194, 
240,2, 206.2*5,160,0, 162, 3, 
142,90,194, 2196 
DATA 177,251,72,177,253, 
145,251,104,145,253,200, 
202.208,242,96,165, 2941 
DATA 253,133.251,24,105,3, 
133,253.165,254,133,252, 
105,0.133,254, 2451 
DATA 96,32,30,193,32,67, 
193,32,96,193,32,151,193, 



867 
2681 

1452 
1505 

2371 

4589 

900 
4870 

2954 
1929 



62 58 
7206 
7002 
6544 
6201 
6733 
6990 
6433 



206,88. m. 1828 
2 70 DATA 208.242,206,89,194, 
173,89,194, 16,234, 173,90, 
194,240,13,206, 2561 
280 DATA 86,194.206,3,206,87, 
194, 173,87, 194 . 16,213,169, 
13,76,210. 2129 
290 DATA Z55, 32,253, 174,32, 

158,173,32.163, 182.165,47, 
133,251,165,48, 2263 



7252 



6312 



7095 



300 DATA 133.252.165.252,197, 
50,144,11,208,6,165,251, 
195,49 14^,3. 2227 
310 DATA 76,254,192,160,0, 177, 
251,197,69,208,7,200,177, 
251,197,70, 2486 
320 DATA 240,21,160,2,177,251, 
24,101,251,72,200,177,251, 
101,252,135, 2413 



6753 



7299 



6521 



too 

110 
120 

130 

60000 

60010 
60020 



INPUT 

REM INPUT 

GOSUB 60000: PRINT : PRINT 
DU$: END 

DU$="":TE=0:PRINT "> 
[CBM 0, LEFT]'*; 
GET A$:IF A$= rtM THEN 60010 



KOALA 



PICTURE 



A=ASC (AS): IF A= 1 3 THEN 
RETURN 

60030 IF A=20 THEN IF TE>0 THEN 
DU$=LEFT$ (OU$,LEN (DU$)- 
I ):TE=TE-1:PRINT "[LEFT, 
CBM Q] [ 2LEFT] "; 
IF A<32 OR A>93 OR TE>37 
THEN 60010 

DU§=DU$+A$: PRINT AS;" 
[CBM @. LEFT] :TE=TE+1 : 
GOTO 60010 



60040 
60050 



DISK 



CHANGE 



100 INPUT FORANDRE DISK FRA: 
;A 

1 10 W A<8 OR AMI THEN 100 
120 INPUT "FORANDRE DISK TIL: " 

;B 

130 IF B<» OR B> 1 1 THEN 120 

140 OPEN 15,A,15, ,, I0" 

150 PRINT#1$/'M-W" CHRS (119) 

CHR$ (0) CHRS (2) CHR$ ( B+ 

32) CKR$ (B+64) 
160 CLOSE 15:0PEN 1 5,B, 15 
170 PRINT#15, "M-R" CHR$ (119) 

CHR$ (0) CHR$ (2) 
180 GET #15,A$:PRINT ASC <A$)- 

32 

190 GET #15,A$:PR1NT ASC (A$)- 
64 

200 CLOSE 15 



100 GOSUB 240:REM KOPIER FRA $ 
1390 6000 TIL SE000 

110 SO=52224:DE=55296:LE=1000: 
GOSUB 280 

2295 120 SO=51200:DE=50176:LE=1000: 
GOSUB 280 

1512 130 BLOKK=3:HIRES=l :SKJERM=1 : 
1579 MULT=1 :SCREEN=1 ;GOSUB 170 

132 CO=PEEK (53281 ):POKE 
5224 53281 , PEEK (53224) 

140 GET A$:IF A$="" THEN 140 

150 BLOKK=0;HIRES=0:SKJERM=0; 
MULT=0:SCREEN=1:GOSUB 170 
2614 152 POKE 53281, CO 

160 END 

4102 170 POKE 56578, PEEK (56578) OR 
3:POKE 56576, ( PEEK 
(56576) AND 252) OR (3- 
BLOKK ) 

180 POKE 53265, ( PEEK (53265) 
AND 223) OR (32*HIRES) 
2133 190 POKE 53272, ( PEEK (53272) 

AND 247) OR (8*SKJERM) 
1435 200 POKE 532 72, ' 
2237 AND 15) OR 

210 POKE 53270, 
1485 AND 239) OR 

1261 220 POKE 648 , (BLQKK*1 6384+ 
4206 SCREEN*! 024 )/256 

230 RETURN 

240 SO=24576:DE=57344:LE=8000 
1584 GOSUB 280 

2347 250 SO=32576:DE-51200:LE=1000 
GOSUB 280 

1872 260 SO=33576:DE=52224:LE=10()1 

GOSUB 280 
1748 270 RETURN 

280 FOR 1=0 TO LE-l:POKE DE+I. 
470 PEEK (SO+i):NEXT : RETURN 



PEEK (53272) 
[SCREEN*16) 
! PEEK (53270) 
(MULT* 16;} 



J U S T E R 



T A L 



100 

110 
120 
130 

140 

150 
160 
170 



180 




REM PROGRAMME'! JUSTERER TA 
LL ETTER 

REM DES t MALP UNKTET - 

REM EVENTUELLE NULLER ETTE 
R 

REM DESIMALPUNKTET BLIR SK 
REVET UT 

AN=20:DIM A (AN) 
FOR 1=0 TO AN:A(I)=( INT 
( RND (0)*200000))/IOO:REM 
LAG TALL MED TO DESIMALER 
IF RND (OX. 5 THEN A(t)= 
A( I)*- Is REM LA HALVPARTEN 
VAERE NEGATIVE 
NEXT 



1263 
3168 



2483 



130 
2216 



FOR 1=0 TO AN:DU=ABS 
(A(1)):REM NEGATIVE TALL K 
OMPL1SERER DET HELE ! ! 
IF DLK.01 1HEN DU=0:REM BE 17 68 



LOP MINDRE ENN .01 BLIR SA 

TT TIL 0 
230 DS=STR$ (DU*100):REM GANG 

MED 100 FOR AA FAA FREM NU 

LLER ETTER DECIMALPKT. 
240 D$=RIGHTS ( DS , LEN (D$)-l): 

REM FJERN SPACE FORAN TALL 

ET 

250 IF DU<1 THEN D$="0 M +DS:REM 
SETT INN NULL FORAN DECIM 
ALPKT . 

260 IF DUC.l THEN D$= M 0"+D$ 
270 DS-LEFTS (D$,LEN (D$>-2>+ 
" 'V+RtCHTS (D$,2):REM SETT 
INN DECIMALPKT 
280 IF A(I)<0 THEN PRLNT " -"; 

:REM SKRIV UT FORTEGN 
290 IF A(1)>=0 THEN PRINT " + H 

300 £oR J=0 TO 7 -LEN (D$>: 

PRINT " ; : NEXT : PRINT DS, 
A(I):NEXT 



741 

2670 

2299 

4356 

3212 

1436 
3908 

1026 
128 
5292 

3769 

3742 

3845 

3556 

3434 

142 
2805 

2 550 

2604 

142 
2768 



1390 



1587 



1614 



1604 
2855 



1723 
170b 
3568 



100 OPEN 15.8, 15," 10": GOSUB 1948 
250: REM OPEN KOMMANDO KAN A 
L 

110 OPEN 2,8 J 2 J "#":C;OSUB 250: 1605 

REM OPEN DATA KANAL 
120 T=18:S=1:REM INIT TRACK & 1225 

SECTOR 

130 PRlNT#15. M Ul :"2;0;T;S: 2587 
GOSUB 250: REM LES SECTOR I 
m r BUFFER 

140 PRINT#15,"B-P:";2:0:GOSUB 2369 

250: REM SETT BUFFERPEKER T 
IL 0 

150 FOR 1=0 TO I 718 
160 PRINT "I DOWN t WHTl TRACK" 3583 

T"SECT0R"S I, BYTE"I*I28"-"I* 

128+ 127" | DOWN, BLK] M 



L 0 K 



170 FOR J=0 TO 15:B$« M " 1217 

180 FOR K=0 TO 7 914 

L90 GET #2.AS:IF AS=" M THEN 2578 

AS=CHR$ (0):REM HE NT BYTE 

FRA DATA -KANAL 

200 A=ASC (AS):B=INT (A/L6): 3729 



GOSUB 26Q:B=A AND 15:GOSUB 

260:PRTNT " "; 
210 IF A>31 AND A<128 THEN BS= 2700 

BS+A$:GOTO 230 
220 BS=BSV\" 702 
230 NEXT K: PRINT B$:NEXT J, I 1290 
240 CLOSE 2:CL0SE 15:END 888 
250 INPUT#15,ER,ER$,A,B:PRINT 3137 

ER,ERS,A,B:RETURN 
260 IF B>9 THEN B=B+7 1349 
270 PRINT CHRS (B+48 );: RETURN 1173 



RUN AMOK 



4540 IF A=43 THEN X=X AND (15- 2515 

BI):G0T0 4510 
4550 IF A=64 GOTO 4530 1078 
4560 GOSUB 8600:A=A+1 : RETURN 1628 

4997 : 

4998 REM ** SELECT: VOICE 1,2 0 
R 3 ** 

4999 : 

5000 POKE 198,0:WAIT 198,15:GET 4463 
AS:V=VAL (AS): IF V<1 OR V> 

3 COTO 5000 
5010 WAIT 197,64:RETURN 1233 

5997 : 

5998 REM ** CURSOR CONTROL ** 

5999 : 

6000 PRINT M | HOME J 11 LEFTS (X$ , 1947 
XX) LEFTS (YS,YY);:RETURN 

6997 : 

6998 REM ** ADJUST MAX/MIN ** 

6999 : 

7000 IF X>MA THEN X=MA 1201 
7010 IF X<M1 THEN X=Ml 1353 
7020 RETURN 142 

7997 : 

7998 REM ** POSITION LARGE SPRI 
XE ** 

7999 : 

8000 SX=20+YY*8:SY=49+XX*8:P0KE 7313 
VC+2,SX AND 255: POKE VC+3, 
SYiPOKE VC+16.SX/128 AND 2 

8010 POKE VC+21, PEEK (VC+21) OR 1371 
2: RETURN 

8097 : 

8098 REM ** POSITION SMALL SPRI 
TE ** 

8099 : 

8100 SX=19+YY*8:SY=49+XX*8:POKE 7452 
VC+4,SX AND 255:POKE VC+5, 
SY:POKE VC+16,SX/64 AND 4 

8110 POKE VC+2 1 , PEEK (VC+21) OR 1373 
4 : RETURN 

8497 : 

8498 REM ** REMOVE LARGE SPRITE 

** 

8499 : 

8500 POKE VC+21, PEEK (VC+21) 2075 
AND 253 : RETURN 

8597 : 

8598 REM ** REMOVE LARGE SPRITE 

** 

8599 : 

8600 POKE VC+21, PEEK (VC+21) 2067 
AND 25 1 : RETURN 



SID-MON II 



E ** 

8999 : 

9000 READ N : FOR 1=49152 TO I+N: 5133 
READ X:POKE l f X:NEXT : READ 

AS: IF A$<>"*" THEN PRINT 
AS : STOP 

9010 SYS 49165 892 
9020 FOR 1=832 TO 1+62: READ X: 4477 
POKE T,X:NEXT : READ A$:IF 
A$<> ,! * fl THEN PRINT A$:STOP 

9030 VC=5 3248: POKE VC, 42: POKE 3997 
VC+39,12:P0KE VC+21, 1: POKE 
2040,13 

9037 : 

9038 REM ** INIT S ID-VARIABLES 

9039 i 

9040 SID=54272:FOR V=l TO 3: 5078 
FR(V)=7000:PU(V)=0:WA(V ) = 
l:CO(V>=0 

9050 AT(V)=0:DE(V)=0:SU(V)=15: 3419 

RE(V)=0:NF.XT 

9060 VO=0;Fl=0;RS=0;FO=0;VP=0 2614 

9067 : 

9068 REM ** INIT SID-CHIP ** 

9069 : 

9070 FOR I=SID TO I+24:READ X: 4601 
POKE I. X: NEXT : READ AS : IF 
A$<>"* A THEN PRINT AS; STOP 

9077 ; 

9078 REM ** CONSTANTS FOR OUTPU 
X ** 

9079 : 

9060 XS="[25DOWNr , :SPS="[LEFT, 3975 

35SPACES 1 " 
9090 Y$="[40RIGHT]" 5514 

9097 : 

9098 REM * INIT LARGE & SMALL S 
PRITE * 

9099 : 

9100 FOR 1=896 TO I+62:P0KE I. 5344 
0:NEXT ;F0R 1=896 TO 1+26 

STEP 3: POKE 1,2 55: POKE 1+ 
1,255 

9110 POKE I+2,240:NEXT 976 
9120 POKE VC+29,2:POKE VC+40,2: 1882 

POKE 2041,14 
9130 FOR 1=960 TO 1+62: POKE I. 5041 

0:NEXT :FOR 1=960 TO t+26 

STEP 3:P0KE 1,255 :P0KE 1+ 

1.255 



9160 
9197 
9198 
9199 
9200 



return" 
rem ** machine -code ** 



DATA 37, 173. 28, 212. 74. 24. 
105,57,141 J, 208, 76, 49, 234 
9210 DATA 120.173,20,3, 14 1 . 1 1 , 
192,173.21,3,141.12.192, 
169, 0.141,20,3. 169,192 
DATA 141 ,21 ,3,88,96,* 



9220 
9297 
9298 
4299 
9300 



9310 



9320 

9397 
9398 

9399 
9400 
9410 
9420 
9430 
9997 
9998 
9999 
10000 

10010 



REM ** ARROW- SPRITE ** 
DATA 0,192.0,3,192,0,15, 

192,0.63,192,0,255,255, 
255,255,255,255,63,192,0 
DATA 15,192,0,3,192,0,0, 
192,0,0,0,0,0,0,0,0,0,0,0, 
0.0,0.0.0.0,0.0,0,0.0 
DATAO, 0,0, 0,0, 0,0, 0,0,0, 
0,0, ft 

REM ** SET-UP DATA FOR SID 
• 

DATA 88,27,0,0,16,0,240 
DATA 88,27,0,0,16,0,240 
DATA 88,27,0,0,16,0,240 
DATA 0,.0,0,0,* 

REM ** IN IT SCREEN ** 

PRINT "ICLR,CBM 5]";: POKE 
53280, 12:P0KE 53281,0 
PRINT "|CBM A.8SHIFT *, 
CBM R,13SHIFT *.CBM R, 
14SHIFT *,CBM S]" 
10020 PRINT "I SHIFT -,CBM A] 0 
[5SPACES, SHIFT - .WHT ]F 
[ CBN 5 IREQ [WHTl 1 [CBM 5] : 
7000 [ 2S PACES, SHIFT -,WHT]P 
I CBM 5|ULSE [ WHTl 1 ( CBM 5]: 
0I5SPACES, SHIFT -]" 
10030 PRINT " | SHIFT -,CBM Qj 16 
I 2SPACES |E | SHIFT -,WHT F 
I CBM 5l REQ [WHTI21CBM 5J: 
70O0 [ 2SPACES , SH I FT - , WHT ] P 
[CBM 5 ] ULSE [WHTl 2 [CBM 51: 
0[5SPACES, SHIFT -]" 
10040 PRINT "[SHIFT -,CBM Q] 32 
[4SPACES, SHIFT -,WHT|F 
[CBM 51REQ [WHT] 3 [CBM 51: 
7000[ 2SPACES, SHIFT -,WHT P 
I CBM 5 1 ULSE [ WHT] 31 CBM 51: 
0[5SPACES, SHIFT -J" 
10050 PRINT "[SHIFT -,CBM Q 
[2SPACES]N |CBM Q, 
13SHIFT *,CBM E, SHIFT 
CBM R,I2SHIFT *,CBM W 
10060 PRINT "[SHIFT -,CBM Q, 
I4SPACES, SHIFT -.WHTjWl 
[CBM 5J: [2CBM \ [CBM A, 
CBM S] n [ CBM Jl [RVSjnm 
OFF, SHIFT -1 IWHTjV 
CBM 5|OLUME:0[3SPACES, 
SHIFT -)" 
10070 PRINT "[ SHIFT -,CBM Q] 80 
[ 2SPACES ] V [SHIFT -,WHT)W2 
[CBM 5): [2CBM\] [CBM A, 
CBM S] n[CBM Jj [RVS|nm 

OFF, CBM Q,12SHIFT *. 
CBM Wl" 

10080 PRINT "[SHIFT -,CBM Q| 96 
4SPACES t SHLFT - , WHT1W3 
[CBM 51: [2CBM \ [CBM A, 
CBM S[ n | CBM J ) [RVSfrmi 
OFF, SHIFT -| RSlWHT]0 
[ CBM 5lNANCE:0[2SPACES- 



48 



142 

4965 
7053 

1930 

6548 
5363 
2255 



10090 PRINT f SHIFT -,CBM O) 112 325* 
E [CBM Q, 1 5 SHI FT * , CBM E. 
6SHIFT * CBM R,5SHIFT *, 
CBM Wl" 

10100 PRINT "[SHIFT - , CBM Q] 128 4798 
3SPACES, SHIFT -.WHTIL 
CBM 51 : [WHTlTlCBM 5]EST 
RI[WHTlN[CBM 5 G S[WHT|Y 
CBM 51NC [ WHT|G [ CBM 5]ATE 
1SHIFT -,RVS, 5SPACES,OFF, 
SHIFT - ' 
10110 PRINT "(SHIFT -.CBM Q] 144 4789 
L [SHIFT -,WHT]2[CBM 5] : 
[WHTlTlCBM 5 lEST R I [ WHT 1 N 
I CBM 5 JG SlWHTlYlCBM 5)NC 



I WHTl G I CBM 5] ATE [SHIFT 
RVS, 5SP ACES, OFF, SHIFT -1" 

' al V 



1929 
1929 
1929 
895 



2420 
2998 

4301 



4389 



4522 



3078 



10150 
10160 



Q] 208 
CBM E, 



64 5041 



4484 



5214 



10120 PRINT "(SHIFT - 1 CBM Q] 
3SPACES, SHIFT -,WHtT3 

[CBM 5] : [WHTlTlCBM 5 1 EST 
RI I WHT] N[ CBM 5]G S[WHT]Y 
CBM 5]NC [WHT1C[CBM 5 ] ATE 

[SHIFT -,RVS,5SPACES,0FF, 

SHIFT - 

10130 PRINT "(SHIFT - , CBM Q] 176 
0 [CBM Q,20SHIFT *,CBM K, 
SHIFT *,CBM E,5SHIFf *, 
CBM Wl" * 
10140 >RINT " ( SHIFT -,CBM Ql 192 
3SPACES, SHIFT - | F[WHT]l 
CBM 5 iLTER FREQ : 0 
6SPACES , SHIFT -.WHTjU 
CBM 513:0N[2SPACES, 
SHIFT -J" 

PRINT "I SHIFT -,CBM 
P [CBM Q,20SHIFT *. 
7SHIFT *,CBM Wl" 
PRINT "(SHIFT -,CBM Q] 224 
(3SPACES, SHIFT -,3SPACES] 
FILTER SELECT: [WHTjE 1 2 
3 [CBM 1( 5,3SPACES, SHIFT -)" 
10170 PRINT "ISHIFT -,CBM Q] 240 
,E [CBM Q,28SHIFT *,CBM W] 

10180 PRINT "[SHIFT -,CBM Z] 256 
[3SPACES, SHIFT - 1 FILTER 
PASS : I WHTl H[ CBM 5 I IGH 
[WHTl B[ CBM 5 J AND | WHT I L 
J CBM 5|OW[2SPACES,SHTFT -I 

10190 PRINT "| CBM Q,8SHIFT * 

CBM E,28SHIFT *,CBM W] r ' 
10200 PRTNT "[SHIFT -,2SPACES, 
WHT] 1 [CBM 5] : [WHT] A 
,CBM 5. TT:0 3SPACES , WHT] D 
CBM 5, EC:0[3SPACES,WHT]S 
CBM 5 , US : L 5 I 2SPACES, WHT] R 
CBM 5 EL:0[ 3SPACES. 
SHIFT 
10210 PRINT 

WHT| 2 [CRM 5 
CBM 5 TT:0 
CBM 5 EC:0 
CBM 5' 
CBM 5 
SHIFT -] 
10220 PRINT "[SHIFT -,2SPACES, 
WHT] 3 [CBM 5] : |WHT|A 
CBM 5 
CBM 5 
CBM 5 
CBM 5 
SHIFT - 
10230 PRINT ' 
CBM X]' 
10240 PRINT ' 



60 4859 



3254 
3990 

2900 
3521 

2890 
4093 



shift -,2spaces, 
: [wht]a 
3spaces,wht]d 
. 3spaces,wht]s 
us:15[2spaces,wht]r 
el:0[ 3spaces, 



TT:0 3SPACES,WHT]D 
EC:0[3SPACES,WHT]S 
US:15l2SPACES,WHT]R 
EL:0( 3SPACES, 

CBM Z,37SHIFT *, 

[ UP 1";: RETURN 



3003 
4058 



4122 



4186 



288b 
721 



COMAL 



S K O L E 



<IHI 

U020 PROC udskri v • pA • printer // £0rste 
nye linje 

00 30 PAGE 

0040 PRINT AT 12,3: " " 1 B"udskr iver 
" ,q," poster pA printer" 

0050 SELECT OUTPCT "lp:" 

0060 FOR x: =1 TO q DO 

0070 PHI POT TAB ( ■ u j , - i :';>(:•. ) ;&2${Z ) 

0OB0 PRINT TABOO) ,a3S(z) 

0090 PRINT TAB( 10) ,a4S(z) 

,0100 PRINT TAB! 10) ,a5S(z> 

0110 PRINT 

012 0 ENDFOR 2 

0130 SELECT OUTPUT "ds:" 

0140 ENDPROC udskriv'pA'printer 
0150 

0160 PROC sorter 

017 0 PAGE 

0180 PRINT AT 12,3: ""18"Jeg sorterer 

nu kartoteket alfabetisk" 

0190 

PROC ombyt(REF Z$,REF xS | CLOSED 
DIM e$ OF 25 
c$:=z$; zS:=xS; x$:=cS 
ENDPROC ombyt 



0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
post 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
03B0 



REPEAT 

nu 1 * ombyt : =TRUE 
FOR i:=l TO q-1 DO 

PRINT AT 15,3: "Er nu nAet til 



■ 18" s0geprocedure" 



IF a2S ( i+1 ) <a2S ( i 3 THEN 
ombyt(alS (i> ,al$(i+l) 
ombyt(a2$(i) ,a2S(i+l) 
ombyt(a3$(i> ,a3S(i-t-l) 
ombyt ( a4S ( i) f a4S(i+'l ) 
ombyt(a5S(i) ,a5$(i+l) 
nul 'ombyt :=FALSE 

END IF 
ENDFOR i 
UNTIL nul 'ombyt 
0390 ENDPROC sorter 
0400 

0410 PROC Slflg 
0420 PAGE 
0430 PRINT TAB(10 
0440 streg 
04*0 CURSOR 22,1 
0460 streg 

0470 INPUT AT 0,0,25: " "18"indtast 

sOgenavn: "146" ": sOgestrengS 

0480 FOR w:=l TO q DO 

0490 CURSOR 3,1 

0500 

streng$:=alS ( w > *a2S( w ) + a3$ ( w ) +a4S ( w ) + a5$ 
w) 

0510 IF sOgestrenoS IN streng$ THEN 

0520 FOR TO 15 DO PRINT 

SPC$(40) , 

Til VIC-20 

PUSLETAVLE 



0530 udskriv' indhold(w> 

0540 pause 
0550 END IF 

056 0 ENDFOR w 

057 0 ENDPROC sOcr 
05B0 

0590 PROC udskift'post 
0600 PAGE 

061(1 PRINT TAEM 11 ) , " " 1 8" udski f tnl ng af 
post" 

0620 streg 

0630 iNPUT AT 22.1: " " 1 8 " i ndtast 

kartoteksnummen"146" ": i 

0640 CURSOR 3,1 

0650 IF i<=q THEM 

0660 udskriv* indholdl i ) 

0670 INPUT AT 23,1,1: M "18"er dot den 

rigtige post j/n:"146" ": svarS 

0680 IF svar$ IN "j" THEN 

0690 PAGE 

0700 PRINT TAB(11>, " " I8"udski£tning 

af post";i 

0710 INPUT AT 6,1; "fornavne: 

alS(i) 

0720 INPUT AT 8,1: "ef ternavne; 

": a2S(i) 

0730 INPUT AT 10,1: "gade + nr.: 

*s a3$(i) 

0740 INPUT AT 12,1: "pst.nr. + by: 

": a4S(i> 

0750 INPUT AT 14.1: "andet: 

": a5Sti> 

0760 ENDIF 

0770 ELSE 

0780 PAGE 

0790 PRINT AT 12,1: "kartoteket 

indeholder kun ",q." poster" 
08 00 pause 
0810 ENDIF 

0820 ENDPROC udskift'post 
0830 

08 40 PROC slet'post 
08 50 PAGE 

0860 PRINT TAB(ll),""18"sletning af 
post" 

0B70 streg 

0880 INPUT AT 22,1: "indtast 

kartoteksnummer:"146" nr 

0890 CURSOR 3,1 

0900 udskriv' indholdlnr) 

0910 INPUT AT 23,1,1: ""18"0nskes 

posten slettet j/n:"146" H : svarS 

0920 IF svarS IN "j" THEN 

0930 FOR i:=nr TO q-1 DO 

0940 alSCi) :=alS(i+D 

0950 a2S(ii==a2S(i+l) 

0960 a3$(iit=a3$(i+l) 

0970 a4$<i) :=a4$(i+l ) 

0980 a5S< i) :=a5S(i + l J 

0990 ENDFOR i 

1000 q:-l 

1010 ENDIF 

1020 ENDPROC slet'post 



1477 

1963 



Indsendt af: 

Bent fl anQfn 



2 POKE 36879 f 200:GOSUB 6000 

3 POKE 36879, 27:POKE 36878, 

U GOSUB 5000 571 

5 DIM RAC15) 627 

6 TL=30720 988 
10 GOSUB 1000 563 

100 FOR 0=7680 TO 7724:POKE Q, 2318 



130 IF B0G$="A" THEN X=7 

131 IF BOG$="B" THEN X=9 

132 IF BOCS="C" THEN X=l I 

133 IF B0G$="D" THEN X=13 
135 IF X=0 THEN 2000 

140 IF TAL$="1" THEN Y=7812 

141 IF TAL$="2" THEN Y=7856 

142 IF TALS="3" THEN Y=7900 

143 IF TALS='V THEN Y=7944 
145 IF Y=0 THEN 2000 

150 P0=Y+X 

200 IF PEEK (P0+2)=46 THEN 

P0(1)=P0+2:G0T0 250 
205 IF PEEK (P0-2)=46 THEN 

P0( I )=P0-2:G0T0 250 
210 IF PEEK (P,0+44)=46 THEN 

P0( 1 )=P0+44:C0T0 250 
215 IF PEEK <P0-44)=46 THEN 

P0(l)=PO-44:C0TO 250 
220 GOTO 2000 
250 POKE PO(l ),PEEK (PO) 
255 POKE PO,46:SC=SC+l :PRINT " 

( HOME j 1 9DOWN ] "SC" FORSOG 
BRUGT !" 
300 A=PEEK (7819):B=PEEK 

(7821 ) :C=PEEK (7823>:D= 

PEEK (7825):E=PEEK (7863): 

F=PEEK (7865) 
305 G=PEEK (7867 ):H=PEEK 

(7869) :I=PEEX (7907):J= 

PEEK (7909):K=PEEK (79.1 1 ) : 

L=PEEK (7913) 
310 M=PEEK (7951):N=PEEK 

(7953) :0=PEEK (7955) 
320 IF A=l AND B=2 AND C=3 AND 

D=4 AND E=5 AND F=6 AND G= 

7 AND H=8 AND 1=9 AND J= 

10 THEN 330 
325 GOTO 100 

330 IF K=l 1 AND L=12 AND M=13 
AND N=14 AND 0=15 THEN 
3000 

999 A$= M ":GOTO 100 

1000 PRINT "I CLR.4RIGHT .4DOWN ] " 

:P0KE 36879,8 
1010 PRINT SPC(6)"[WHT.CBM A, 

7CBM R . CBM Si 
1020 PRINT SPC(5) rt l[CBM Qi 
[SHIFT + f SHlFT-SPACE, 
SHIFT +, SHIFT-SPACE, 
SHIFT -+» SHI FT- SPACE, CBM W] 
1030 PRINT SPC(6) r, [WHT,CBM Q, 
SHIFT *, SHIFT +, SHIFT *, 
SHIFT +, SHIFT *, SHIFT +, 
SHIFT *,CBM Wl 
1040 PRINT SPCf 5 " [ WHT I 21 CBM Q| 
SHIFT +1 SHIFT +) 
[ SHIFT +J CBM W, 
SHI FT- SPACE 
1050 PRINT SPC(6) M iWHT,CBM Q, 
SHIFT *, SHIFT +, SHIFT *, 
SHIFT + y SHIFT *, SHIFT +, 
SHIFT *,CBM Wj 
1060 PRINT SPC(5)"[WHTj3lCBM Q] 
[SHIFT *] I SHIFT +] 
[SHIFT + ] [ CBM Wl 
1070 PRINT SPC(6)"|WHT,CBM Q, 
SHIFT *, SHIFT +, SHIFT *, 
SHIFT +, SHIFT *, SHIFT + . 
SHIFT *,CBM W] 
1080 PRINT SPC(5)"[WHT]4lCBM C] 
SHIFT +; 1 SHIFT + 
[SHIFT *■ .[CBM W| 
1090 PRINT SPC(6)"[WHT,CBM Z. 

7CBM E,CBM Xl 
1095 PRINT SPC(6r'(WHT] ABC 



i w i j 
1312 
1217 
1255 
1192 
922 
14 36 
1312 
1404 
1280 
924 
823 
3393 

3441 

3100 

3164 

561 
935 
4937 

5481 



5810 

3160 
6729 



556 
3762 



855 
2504 

1776 

1682 



1957 

2137 

1957 

2041 
1957 

1981 

1843 
1473 



1500 



1510 



1550 
1560 
1570 
1580 

1590 
1600 
1610 



1620 



1630 



1640 

1700 
1800 
2000 

2010 



2040 
3000 

3010 

3020 

3030 

3040 
3050 
5000 

5010 



5020 
5040 
5050 

5060 

5070 
5080 



CEN1ET ARBEJDER![WHT|" 
Al=7819:Bl=782i:Cl=7823: 
D1=7825:A2=7863:B2=7865: 
C2=7867:D2=7869 
A3=7907:B3=7909:C3=791 Is 
D3=7913:A4=795l:B4=7953: 
C4=7955:D4=7957 

FOR TA=1 TO 15 

RA(TA)=INT ( RND (i)*l5)*l 

FOR T=l TO 15 

IF RACTA)=RA(T ) AND TA<>T 

THEN 1560 

NEXT T 

NEXT TA 

POKE Al j RA( 1 ) : POKE BI, 
RA(2):P0KE Cl ,RA(3 ) :P0KE 
D1,RA(4) 

POKE A2,RA(5) :P0KE B2, 
RA(6):P0KE C2 , RA(7 ) :POKE 
D2, RAC8) 

POKE A3,RA(9):P0KE B3, 
RA(10):POKE C3 ■ RA( 11): POKE 
D3,RA(12> 

POKE A4,RA(13):P0KE B4 . 
RA(14):POKE C4,RA(15) 
REM POKEAl+TL, 
RETURN 

PRINT "1 HOME 1 FEJL ! ! ! ! ": 

POKE 36877,255 

FOR S*0 TO 1 00 : POKE 36879, 

S:NEXT S:P0KE 36879, 8:POKE 

36877,0 

GOTO 100 

PRINT M [CLR,RVS.WHT|BRAVO, 

DET LYKKEDES ! ! " 
PRINT "[4D0WN1DU BRUGTE :" 
SC'FORSOG!" 

PRINT "I2DOWNIVIL DU PROVE 

IGEN 2SPACES |-":PRINT 
"(J/N) ?" 

GET A5:lF ASO'M" AND A$<> 

"N" THEN 3030 

IF A$="J" THEN RUN 5 

END 

PRINT "[CLR ]***** 

PUSLETAVLE 
PRINT "[DOWNlSPILLET GAAR 
UD PAA ATFLYTTE RUNDT PAA 
BOG- ST A VERNE , SAA DE 
KOM- MER"; 
PRINT "[RIGHT]TIL AT L1GGE 

SAA- LEDES: [DOWN] " 
PRINT." | CBM A. 7CBM R, 



CBM S 

PRINT "1 
SHIFT + 
CBM W] 

PRINT 



CBM Q] A I SHIFT 
ClSHIFT +]D 



5090 

5100 PRINT 



CBM Q, SHIFT *. 
SHIFT t, SHIFT *, SHIFT +, 
SHIFT *, SHTFT *, SHIFT *, 
CBM W] 

PRINT "2 I CBM Q| E ( SHIFT +]F 
SHIFT +|G[SHIFT +]H 
I CBM Wl 

PRINT " [CBM Q. SHI FT *, 
SHIFT +, SHIFT *, SHIFT +, 
SHTFT *, SHIFT + . SHIFT *, 
CBM Wl 

CBM Q] I | SHIFT +]J 
K[ SHIFT +|L 



PRINT "3 
[SHIFT + 
[CBM W] 

PBTMT " 



51 10 



,CBM Q. SHIFT *, 
SHIFT + t SHIFT w, SHIFT +. 
SHIFT *, SHIFT +, SHIFT *. 
CBM W] 

PRINT "4 [CBM Ql Ml SHIFT + 



7710 
7708 



848 
2284 

825 
2521 

298 
303 
3941 



3941 
4152 
3325 



142 
2312 

4566 



556 
2703 

2387 

3108 

2669 

1260 
128 
2506 

5963 



2882 
1470 
1458 

1397 

1547 
1397 

1636 
1397 



]N 1844 



[ 2SPACES J A BCD 
(197)064 THEN 

|2D0WN|TRYK EN 



SHIFT +IOISHIFT +] . 
[CBM W) 

5120 PRINT n [CBM Z,7CBM E, 

CBM X] 
5130 PRINT 
5135 LF PEEK 

5135 
5140 PRINT ' 
TAST" 

5150 IF PEEK (197;=64 THEN 5150 
5200 PRINT "[CLR]**** 

INSTRUKTION ***»" 
5210 PRINT "[2D0WN]SKRIV 

KOORDINATERNE 
5220 PRINT "PAA DET BOGSTAV, DU 
[ 3SPACES | VIL HAVE; FLYTTET 

OVER I DET TOMME RUM- 
[ SHIFT-SPACE 1 
5225 PRINT "ET BOGSTAV KAN KUN 
[ 4 SPACES ] RYKKES . HVIS DET 

LIG- GER VED SIDES AF DET 
1 2SPACES ] TOMME RUM! " 
5230 PRINT "(DOWN IDE TILLADTE 

KOORDINA- TER ER : " 
5240 PRINT M [2D0WN]Al,A2,A3,A4, 
B1,U2,I33, B4.Cl,C2,C3,C4, 
Dl,D2. D3,D4 A 



1574 

682 
2270 

1444 

1791 
2405 

2361 

5272 



7023 

2944 
4656 



5250 

5255 

5260 

5270 
5280 

6000 



6010 



6020 
6030 

6040 

6050 
6060 
6070 



6030 



PRINT "[DOWN I GOD 

FORNOJELSE! " 
IF PEEK ( 197 )<>64 THEM 
5255 

PRINT "[DOWNlTRYK EN TAST 
I UP-]" , 

IF PEEK (197)=64 THEN 5270 
FOR TBE=1 TO 20:GET A$: 
NEXT : RETURN 
AS="[ 1 8S PACE Si*** 

PUSLETAVLE ***[2S PACES] 
BEGAAET 1985 AF : BENT 

ftjORT CLAUSEN " 
PRINT "[ CLR, 2DOWN, RIGHT] > 
( 15SPACES, SHIFT- SPACE, 
2SPACESl<":POKE 36876,220 
FOR T=l TO 56 
PRINT " 1 HOME , 2 DOWN , 2RIGHT, 
RVS,BLK]" MID$ (A$,T. 18) 
FOR Z=15 TO 0 STEP -l:POKE 
36878, Z:NEXT t 
FOR B=l TO 150:NEXT B 
NEXT T 

POKE 36878. 15:FOR T=220 TO 
254 STEP .05:P0KE 36876, T: 
NEXT T:POKE 36876,0 
RETURN 



1990 

2175 

1653 

1871 
1271 

5920 
27 30 



1017 
1657 

2783 

885 
298 
5215 



142 



Til PLUS 4/C 16 

i 

FAKTUR A PROGRAM 

Indsendt af: 

Henry Petersen 
Klavervamget 43 
6900 Skjern 



0 FOR A=l TO 8 : KEY A,CHR$ 4516 
(132+A) :NEXT :PRTNT CHR$ 

(S) CHR$ (14) :COLOR 4,10, 
3 : GOTO 96 

1 K$=F$(A,3):F$(A,3)='"':FOR 3982 
V=l TO LEN (KS):L=ASC ( 

MIDS (KS,V,V)) 

2 IF L=44 THEN L=222:ELSE IF 2678 
L=222 THEN L=44 

3 F$<A,3)=F$(A,3)+CHR$ (L>: 2395 
NEXT : RETURN 

4 A=A+2:POKE 205,A:PRINT : 3369 
POKE 202,B:POKE 19,1: INPUT 

KS: RETURN 

5 F=VAL (K$):K$=MID$ ( STRS 2210 
(F),2):RETURN 

6 COLOR 1,3,4:P0KE 2022, A: 3379 
POKE 2023,B:R£TURN 

7 PRINT " [ CLR] " : DIRECTORY 2392 
"*=SEQ":GET KEY K$:C0T0 26 

8 IF DS<20 THEN RETURN : ELSE 4151 
IF (DS=62 OR DS=63) AMD Z= 

5 THEN 1 15:ELSE GOTO 114 

9 V=3439:IF X=0 THEN GOSUB 2588 
101: COLOR 1,10,3 

10 PRINT M [2H0MC,CLR,RVS)b 7355 
SHIFT-SPACE o 
SHIFT-SPACE b 
SHI FT- SPACE t 
SHI FT- SPACE, CBM 
SHIFT-SPACE] r [ SHIFT- SPACE ) 
i I SHIFT-SPACE ]n 
i SHI FT- SPACE ] g[ 2 SPACES ] 
*****[ 2SPACES|faktura 

PLL'S/4bogf [CBM -Jringsart 
1 8SPACES] FS 



11 PRINT "|CBM llkonto" TAB( 4309 
11 )RS:A=3:B=0: GOSUB 6:B=7: 

IF Y=l THEN H=T 

12 X=X+1: PRINT I CLR, RVS, RED] 6623 
POST Nk. : [OFF] "X;Y$" 
|DOWN,RVS]mDR. [OFF] >" 

CSYS"! DOWN, RVS IdATO I OFF] 

V'JSYS"! DOWN, RVS ]"ES" 
[OFF] >" 

13 IF Y<3 THEN PRINT "[DOWN, 1902 
RVS]bEL\B[OFF] > 

14 PRINT "[3DOWN.CBM 3]sIDSTE 6382 

POST I DOWN ] "YS" [ RVSJmDR. 

[OFF] "C$.,"[RVS]dATO 
[OFF] "JSYS [ DOWN, RVS] "ES" 
[OFF] M F$(X-1,3) 

15 PRINT "[DOWN,RVS]bEL\B 5816 
[OFF]*' USING X$;VAL <FS(X- 
1,4)):PRINT "[DOWN, RVS] 

total[ OFF 1" USING X$:H::A= 
2: GOSUB 4 

16 IF PEEK ( 3279X65 THEN X= 5293 
X-l :G0T0 24: ELSE IF KS=CS 

THEN KS="-":ELSE C$=KS 

17 F$(X,1 )»K$:G0SUB 4:IF KS= 3291 
J$ THEN KS=" [ RIGHT j : ELS E 
J$=K$ 

IS F$(X,2)=K$:GOSUB 4:IF Y=3 6666 
THEN GOSUB 5 :F$ (X, 3)=KS : J= 
J+F:F=FN A(F):K$=STR$ (F): 
GOTO 23 

19 K$="":L=0:K=V-f3S:FOR G=V 4620 
TO K:A=PEEK (G):IF A<32 OR 

A>95 THEN A=A+64:G0T0 21 

20 IF A>63 THEN A=A+128:ELSE 32 33 
IF A=44 THEN L=l 

21 K$=K$+CHR$ (A) :NEXT !IF Z= 1958 
8 THEN RETURN 

22 F$(X.3)=K$:F(X)*L:A=PEEK 3046 
(205)-1:GOSUB 4 

23 GOSUB 5:F$(X,4)=K$:H=H+F: 2638 

IF X<48 THFN 1 7 

24 IF Y=l THEN M=INT ((H*C)+ 6311 
.5)/l00:T=H:H=H-M:ELSE M= 

INT ((H*R)+.5)/100:T=H+M 

25 IF U=l AND X>0 THEN U=0: 3011 
COLOR 1,10,3:GOTO 54 

26 I=X:COLOR 1,10,3:PRINT " 5700 
|2HOME,CLR.RVS]h 




SHI FT- SPACE 
SHI FT- SPACE 
SHIFT-SPACE e 
SHIFT- SPACE d 
SHIFT-SPACE m 
SHI FT- SPACE e 
SHIFT- SPACE n 
SHIFT-SPACE u " FRE U)" 
LEFT, 2SPACES] faktura 
PLUS/4 

27 PRINT QS'*[2SPACES| 
mOMSPR0CENT"R" kM. TAKST" 
P:IF X=0 THEN NS— M F * M :Y=0 

28 PRINT "[DOWN]konto 

[ 2SPACES ] "NSYS" [ 2D0WN, 
3SPACES , RVS] f I (OFF] 

kASSEUOG'WfDOWN, 

3SPACES , RVS J £2 1 OFF ] 
iNDHOLD 

29 PRINT "! DOWN. 3SPACES. RVS] 

f3[OFF] 10AD"YS ,, |DOWN, 

3SPACES,RVS]f4[OFF] 

sAVE"YS'*lDOWN. 

3SPACES RVS|C5[OFF] 
pRINT/aRKIV 

30 PRINT " DOWN t 3SPACES. RVS | 
f6[0FF] mOMS M YS"|DOWN, 



OFF) 
DOWN* 
OFF] 



3SPACES,RVSjf7 

rESET'^S" 

3SPACES,RVS] C8 
rEDIGERING 

31 GET KEY KS:Z=ASC (K$)-132: 
IF Z<1 OR Z>8 OR (Z=l OR 
Z=4) AND Y>3 OR Z=l AND X> 
47 THEN 31 

32 IF Z=3'AND X>0 OR (Z>3 AND 
Z<>6) AND X=0 THEN 31:ELSE 
ON Z GOTO 9,7,73,73-33, 
109,113,54 " 1 

33 IF Y=l THEN 42:ELSE PRINT 
"[CLR,RVS]udskrift t* 

arkivering[2SPACES)** 
faktura PLUS/4 

34 PRINT M [2D0WN,RVS] 

nAVN [OFF]>"A$Y$" 

[DOWN, RVS iaDRESSE 

[OFFl>"C$Y$"[DOWN.RVS 
pOSTADRESSE . . TOFF >"BS 

35 PRINT "LDOWN.RVS] ,, V$ M ... ,t 
TAB(13) ,% l0FF)>"RSY$ M [DOWN, 
RVS jsKJERN, DEN.-|OFF]>" 
DSY$ M | DOWN T RVS ] dATA 

OK |0FFJ> 

36 PRINT " [ DOWN . RVS ] aNTAL 

EKSMPL. I OFF ] > " : A=0 : B=14 : 
GOSUB 4;A$=KS:G0SUB 4:GS= 
K$: GOSUB 4:B$=K$ 

37 IF YC4 THEN GOSUB 4:NS=KS: 
„ GOSUB 104:ELSE A=A+2 

38 GOSUB 4:D$=K$:G0SUB 4:TF 
KS<> M J" THEN 26: ELSE GOSUB 
4:S=VAL (KS):IF S=0 AND Y> 
3 THEN 26 

39 IF Y>3 THEN 41 :ELSE PRINT 
: INPUT M I DOWN. RVS] 

aRKI VERES (0FF|> M ;KS: IF 

R$0"J" THEN 41 

40 IF Y=3 THEM Y=5:G0T0 79: 
ELSE Y=Y+4:G0TO 79 

41 IF S=0 THEN 26:ELSE IF J> 
0 THEN PS=STR$ (J )+" KM A' 

"+STRS (P):VS=°fAKTURA " 

42 OPEN 4,4,7:Q$=L$-f-"IO":ZS= 
{-$+"67": TF Y=l THEN MS= 

"mOMS UDC\R":A=H:H=T:T=A: 
GOTO 49 

43 IS="[9SPACES|":F0R A=l TO 
2&:IS = I$ + ,, AA*:S$=S$+" 
ICBM U] " :NEXT :OPEN 1,4, 



4648 
6911 

7132 

6646 

5692 
6451 
6094 
7101 

5641 

5337 

2734 
5545 

5535 

3236 
5141 

6111 



3SPACESlr [3SPACES 
pl3SPACESlel 3SPACES 
ef 3SPACESlr I 3SPACES 
pl3SPACESln 
' kL\VERVlNGET 43 
07-35 17 



1 :OPEN 2 

44 PRLNT#2. 
3SPACES 
9SPACES 
3SPACES 
3SPACES 

45 T$=T$+Y$ 
[22SPACES jTLF. 

87 

46 TS=T$+YS-*-"690()[2SPACES) 
skjern[25SPACES|GlRO 
I4SPACES]8 26 74 13 M 4-Y$ 

47 K$=YS+"tIL"+Y$+A$+-YS+GS-»- 
Y$+-B$+YS:MS=STRS (R)+-"i& 

rnOMS" 

48 PRINT#4,"[CLR]":E=E+I : 
PRINT* 1 ,T$SSKS 

49 PRINW.QSVSRS: : IF Y=l 
THEN PRINT#4:ELSE PRLNT#4, 
L$"40sKJERN. DEN "D?Y$QSSS 

50 ^.ftri,, 10 X:PRINT#4.F§(A F 
mt 1)LS"06' T USING 0$:F$ A, 2) 

51 PRINT#4,QSF$ (A. 3 )Z$ USING 
H$;VAL (?S(A,45):NEXT ; 
PR1NT#4,U$Y$Q$PSZS USING 
HS j H 

52 PRINT#4,Q$M$ZS USING HS:M: 
PRINTf4,USY Y ZS USING H$;T: 
PR I NTiM , USYS " I HOME ] " 

53 IF S>E THEN 48:ELSE SYS 
65511:GOTO 96 

54 PRINT "[2H0ME,CLR,RVS]r 



SHIFT-SPACEld 
SHIFT-SPACE] g 
SHIFT-SPACE] r 
SHI FT- SPACE ]n 
g [ 2SH1FT-SPACEI*** 



2644 
4502 

2361 
5554 



SHIFT-SPACE 
SHIFT-SPACE 
SHIFT-SPACE 
SHIFT-SPACE 
SHIFT-SPACE 
2 SPACES J 
faktura PLUS /4"Y$" [ DOWN ] 
rr konCo[2SPACES]"NS 1 

tiET TO OsiNG X?;H 

56 PRINT M [DOWN]mOMS " USING 

USING X$;T:A=12:B=0:GOSUB 

57 IF I>X THEN I=1:ELSE IF K 
1 THEN I=X 

58 PRINT "[CLR.RVSlpOST NR. • 

OFF] '/IJVS^DOW^RVSI 
l.rnDR.[0FF,2SPACES] M FS(l f 
1 ^"[RVS,D0WN]2.dAT0l0FF, 
cn 2SPACES]"FS(I.2) ' 

59 F^ L ( F $(1^5):PRINT » 
[DOWN,RVS 3."E$ ,, l0FF] 
F$(I f S)Y$"lDOWN f RVSr 
4.bEL\B|0FF " USING XS:F 

60 GET KEY KS:IF K3«V ^EW 
I=I-l:G0TO 57:ELSE T IF K$= 
"." THEN I=I*l:G0TO 57 

61 IF K$="R" AND Y<4 THEN 
PRINT [ DOWN | nUMMER" : : GET 

*? ?F.S S ^ INT CHS:G0TO 63 

62 EMT II ANI ? Y<A THEN 
PRINT "|D0WNlslet H :G0TO 
70:ELSE IF K$="M" THEN 26: 
ELSE GOTO 60 

63 S=VAL (K$):IF S>4 OR S=0 
OR S=4 AND Y=3 THEN 38: 
ELSE IF Y=I AND S=4 THEN 
H=T 

64 IF S=4 THEN H=H-F:ELSE IF 
Y=3 AND S=3 THEN J=J-VAL 
(F$(I.3)):H«H-F 

65 A=PEEK (205)-4:PRlNT "lUPl 
"F$( I,S):GOSUB 4: IF S=4 
THEN H=H+VAL (K?) 

66 IF S=2 AND VAL (K$><1 THEK 
KS^'lRIGHTl'^ELSE IF Y=3 



4607 

4768 

5364 

2359 
5437 

3354 
4741 

4348 

2196 
6361 



4834 



5043 



3926 



4771 



4946 



5096 



3893 



3785 



AND S=3 THEN COSUB 5 
67 IF S=3 AND Y<3 THEN V= 

3072+(40*(A*1)):COSUB 19: 

fa8 FS(I~S)=K$:IF S<4 AND Y<3 
THEN 58: ELSE IF Y<3 THEN 
U=l:GOT0 24:ELSE IF S<3 
THEN 58 

69 J=J+F:F=FN A(F) :K$=STRS 
(F):GOSUB 5 : F$ ( I ,4 )=KS : H= 
H+F: 11=1: GOTO 24 

70 GET KEY K$:1F K$<>"J" THEN 
58: ELSE IF Y=l THEN H=T: 
ELSE IF Y=3 THEN J=J-VAL 
(F$(l,3)) t . 

71 H=H-F:FOR A=l TO X-l:F(A)= 
F(A+I ):F0R B=L TO 4:FS(A, 
B)=F$(A+l,B):NEXT B,A 

72 X=X-I :U=l:GOTO 24 

73 PRINT "I 2DQWN, 3SPACES I 
konco[2SPACES|* , N5:A=2():B= 
10:GOSUB 4:IF VAL (K$)>0 
OR K$="F *" THEN 26 

74 NS=KS:IF Z=4 THEN GOSUB 

1 04: OPEN 3,8,2,"(30:"+N$+", 
S,W":GOTO 80 

75 OPEN 3,8,2,N$+",S,R M :COSUB 
8: [NPUT#3 t X,Y:lF Y<4 THEN 
[NPLIT#3 t CS,JS , . 

76 FOR A=l TO X: INPUT#3 , F(A) : 
FOR B=l TO 4:INPUT#3,FS(A ? 
B):NEXT :IF F(A)=l THEN 
GOSUB I 

77 NEXT :IF Y>3 THEN INPUT#3, 
A$,G$. BS f DS 

78 INPUT#3,J,H,t*,T:CLOSE 3: 
GOSUB 104: GOTO 26 

79 CLOSE 3:OPEN 3,8,2,N$+ M f S, 
W 

80 GOSUB 8; PR TNT#3,X; YS: Y : IF 
Y<4 THEN PKINT#3,CSY$J$ 

81 FOR A=l TO X:PRINT#3,F(A) : 
IF F(A)=1 THEN GOSUB 1 

82 FOR B=l TO 4 : PRINT#3 f F$ ( A , 
B):NEXT B.A:IF Y>3 THEN 
PRINTS, A$Y$G$Y$B$YSD$ 

83 PRINTfr l 3,J;Y$;H;Y$;M;YS;T: 

CLOSE 3: IF Y<4 THEN 96 

84 OPEN 3,8,2 t Q$+'\S,R":G0SUB 
8:INPUT#3,W:F0R A=l TO W: 
INPUT#3,NS(A),DS(A) h 

85 INPUT#3,H(A),M(A),T(A): 
NEXT : CLOSE 3: IF Z=9 THEN 
93:ELSE IF 2=10 THEN 90 

86 IF Z>9 THEN PRINT YS"|UP] 
tTids[SHIFT *|t kopi 

[ 2SP ACES ]< RETURN > ; GET KEY 
K$:G0TO 8£ 



4816 
5845 

5187 
5422 

5163 



1058 
5073 



88 



89 



90 



7 W=W+1:N$(W)=N$:D$(W)=I>S: 

H(W)=H:M(W)=M:T(W)=T 

8 CLOSE 3:0PEN 3,8 ,2, "@Q;"-> 



;$+" S,W":PRLNT#3 t W:COSUB 
8:FOR A=l TO W 
PRINTS, , , , 

NS(A)YSDS(A)YSH(A)Y$M(A)YS 
T(A):NEXT :CLOSE 3: IF Z=5 
THEM 41 :ELSE RETURN 
OPEN 4 t 4,7X USING 4, 
QSLS"50nETTO"L5 ,, 62mOMS" 
L$"74bRUTT0"Y$:F0R A=l TO 
W 

PR INT #4 



4232 
4232 
4354 

1970 
2387 
196-6 
3411 
2315 
4083 

3651 
4545 

4418 

3983 

4245 
4009 

5008 
6483 




"bRUTTO" 

94 FOR A=l TO W: PRINT USING 
"JHHHHHHHHHrx N$< A) ; ;PRINT 

USING X$:H(A),M(A),T(A): 
GOSUB 99 

95 NEXT : PRINT " j CBM 3]total 

kr. " USING X$;G,K,L:GET 
KEY KS: RETURN 

96 CLR :COL0R G,9:A=47;B=25: 
DIM F$(A,4),F(A),N$(B), 
D$(B) f ,H(B) f M(B),T(B);PUDEF 

97 READ Q$,R,C,P,X$,OS;DEF FN 
A(F)=INT ((F*P*i00)+.5)/ 

10U:HS="#"+X$ 

98 YS=CHR$ (13):CH$=CHR$ 
(27>+"D";L?=CHRS (16>;U5= 
L$+"71 [9CBM Ul":GOTO 26 

99 IF LEFTS (N$(A) , 1 )="K" 
THEN G=G-H(A):K=K-M(A):L= 
L-T(A): RETURN 

100 G=G+H(A):K=K+M(A):L=L+ 
T( A) : RETURN 

101 A=14:B=23:G0SUB 6:PRINT " 
CLR]* * * * * * * * *"YS" 
DOWN]* 0 . f AKTURA"YS" 
DOWN ] * 1 -uDGIFTER 

102 PRINT "[DOWN]* 

2 . kREDITNOTA"Y$" ( DOWN ] * 
3-k\RSEL" :GET KEY K§:Y= 

ASC (KS)-48:IF Y<0 OR Y>3 
THEN 26 

103 PRINT "lDOWN,2SPACES| 
k0NT0"::CS="*:J$=" ,, :A=2l : 
B=3I:GOSUB 4:NS=K5' 

104 VS=MID$ (N$,1,2):IF Y=l , 
THEN F?= uDGIFTER] 3SPACES] 
INC -MOMS"; IF VS<>"U " THEN 
NS= r, U "+NS 

ES="tEKST":IF Y=0 OR Y=4 
THEN F$="fAKTURA[4SPACES | 
EXL.MOMS" : IF VS<>"F " THEN 
N$="F "+N$ 

IF Y=2 OR Y=6 THEN F$= 
"kREDITNOTA EXL.MOMS": IF 
V$<>"K M THEN N$="K "+N$ 
tF Y=3 OR Y=5 THEN PS- 

"k\RSEL EXL. MOMS'* :E$= 

"kM. [2SPACES]":IF VS<>"F " 
THEN NS="F M +N$ 
N$=LEFTS <N$, 10):R$=MID$ 
(N$,3):VS=LEFT$ CF$, 10): 
RETURN 

A=15:B=16:G0SUB 6:PRINT " 
(CLR) 

A ft AAA* Jr A fr ft» fli tW ft . * AA' -fr A* * " 
YS"[D0WNl* 1-sKlRM 
PRINT "[DOWN |* 2. pRINTER" 
Y$"lDOWN]* 

3. s ikkerhedskopi" :GET KEY 
KS:2=VAL (K$>+8 
IF Z<9 OR Z> 1 1 THEN 26: , 
ELSE PRINT " [D0WN,4SPACES) 
"QS:A=20:B=A:GOSUB 4 : IF 
VAL (K$)=0 THEN 26 
QS=KS : G=0 :K=0 : L=0 : GOSUB 
84 : RESTORE ; READ Q$:G0TO 
26 

PRINT "IDOWN^RED^SPACES] 
reset" :GET iCEY KS: IF K$<> 
"J" THEN 26: ELSE GOTO 96 
PRINT CHSDS$:GET KEY K$: 
CLOSE 3: RESTORE :READ Q$ ; 
GOTO 26 

IF DS=62 THEN W=0:GOT0 #7; 
ELSE PRINT "(DOWN|"DS$:A= 
6:B=14:G0SUB 4 : N§=K$ ; GOSUB 
104:GOTO 79 

DATA "l.KVT.86".22,18.03. 
1.83, , iHHf . ##" , 



105 



106 



107 



108 



109 



110 



111 



112 



1 13 



114 



5599 

4135 
5263 

5223 

5511 

4686 

2832 
5509 

6242 

4466 
6395 

6520 

6261 
6801 

3564 
5638 

5849 



4948 




KALENDERPROGRAM 

Indsendt af: 

Poul Erik Sommer 
Hoi landerve j 13 
6000 Kolding 

1 REM 

2 REM * * 

3 REM * KALENDERPROGRAM * 

4 REM * AF * 

5 REM * POUL ERIK * 

6 REM * GEHRCKE SOMMER * 

7 REM * * 

8 REM * * * & ft **» A * A' *■* 

20 PRINT "ICLR t CBM 81 6739 

A>» * » ft* to'** 

KALENDERUDSKRIFT 

;pOKE 53280, 
6: POKE 53231,1 
30 INPUT "[ 1 2SPACES]FOR ";A 1422 
40 J=A-1 292 
50 S=INT (J/4) -INT (J/100)+ 2698 

INT (J/400) 
60 K-S+S+JiE^K-INT (K/7)*7-l. 2350 
70 IF E=-l THEN E=6 1059 
80 IF A/4=TNT (A/4) AND A/ 4417 
1G0QOINT (A/1000) THEN C= 
29: GOTO 100 
90 C=28 561 
100 PRINT "VIL DU HAVE 3010 

PRINTERUDSKRIFT? (J/N)" 
110 GET AS: IF A$="J" THEN PR= 2185 

1 :GOT0 L40 
120 LF A$<>"N" THEN 110 1419 
L30 PR=0 575 
140 LF PR=1 THEN OPEN 4,4:CMD 1724 
4 

ISO IF PR=l THEN 165 940 
155 PRINT :PRINT :PRINT :PRINT 2345 

" [ 6SPACES ] KALENDER" : A 
160 GOTO 170 584 
165 PRINT :PRINT :PRINT :PRINT 3211 

"[ 33SPACES]KALENDEB ";A 
170 PRINT : PRINT 371 
ISO IF PR=L THEN 203 999 

200 FOR B=l TO 1 2 : READ M$,D 1479 

201 IF PR=0 THEN 210 1108 

203 FOR B=l TO 6: READ M$,D: 2228 
READ M2$,F 

204 L=42-(E+D) :IF L>=7 THEN L= 2973 
L-7 

205 G=7-L 681 

206 IF L=0 THEN G=0 1172 

207 PRINT : PRINT :PRINT TAB( 3325 
l7-( LEN (M$)/2));MS;A: 

208 PRINT TAB(33-( LEN (M2S)/ 2601 
2));M2$:A 

209 GOTO 225 606 

210 PRINT : PRINT : PRINT TAB( 3263 
ll-( LEN (M$)/2>);MS;A 

220 IF MS= ,, FEBRUAR" THEN D=C 1788 
225 IF M2S="FEBRUAR ,, THEN F=C 1954 
230 GOSUB 500: IF PR=1 THEN 250 1573 
240 GET A$:IF A$=" H THEN 240 1444 
250 NEXT B:IF PR- I THEN PRINT* 1766 

4: CLOSE 4 
260 PRINT "JCLRJ'FI* FOR NY 3970 

START. : PRINT "'F3' FOR 

SLUT." 

270 GET AS:IF A$="lFl]" THEN 1376 
RUN 



290 END 

400 DATA JANUAR, 31, FEBRUAR.O, 
MARTS, 31, APRIL. 30, MAJ,3l, 
JUNI,30,JULl T 3LAUGUST,3i 

410 DATA SEPTEMBER, 30, OKTOBER, 
3 1 , NOVEMBER , 30 . DECEMBER , 3 1 

500 IF PR=1 THEN GOSUB 600: 
RETURN 

501 PRINT " _._ 



510 PRINT "MAN TIR ONS TOR FRE 

LOR SON" 
520 PRINT " 



530 PRINT TAB(4*E); 

540 FOR N=l TO D:IF N<10 THEN 

PRINT " ,r ; 
550 PRINT N;:E=E+l:lF E=7 THEN 

E=0: PRINT 
560 NEXT N 

570 IF E>0 THEN PRINT 

580 PRINT " 

590 RETURN 

600 PRINT TAB( 6 )" 



605 PRINT TAB(14)' 



610 PRINT TAB(6)"MAN TIR ONS 

TOR FRE LOR SON" : 
615 PRINT TAB( 14 )"MAN TIR ONS 

TOR FRE LOR SON" 

620 PRINT TAB(6>" 

ii . 

625 PRINT TAB (14)"-- 



626 H=l :I=1:X=0 
630 PRINT TAB(6+(4*E)); 
640 FOR N=l TO 7:1=1+1 
645 IF N<10 THEN PRINT " 
[SHIFT-SPACEl"; 

649 PRINT N::E=E+1:IF E<7 THEN 
NEXT N 

650 E=0:J=1 :V=0:Z=0 

651 IF H<7 THEN 662 

653 PRINT TAB(6+(4*E)>: 

654 FOR NI =1 TO D:I = H-1 

655 IF NK10 THEN PRINT 11 ": 

656 PRINT Nl::E=E+l:tF E<7 
THEN NEXT Nl 

657 IF E=7 THEN E=0:J=J+1 

659 IF H>F THEN 674 

660 IF Nl=D AND F-H>7 THEN Y=l 

661 IF Y=l THEN PRINT TAB(46): 
:GOT0 664 

662 PRINT TAB(13+(4*CJ); 

663 IF E>0 THEN PRINT TAB C 4* 
(7-E)); 

664 FOR N2=H TO F:H=H+1 

665 IF N2<10 THEN PRINT " ": 

666 PRINT N2;:G=G+1:IF G<7 
THEN NEXT N2 

670 IF G=7 THEN G=0 

671 PRINT :1F I>D THEN X=l 

672 IF 1>D AND H=<F THEN PRINT 
TAB (47 ) ; : NEXT N2 

673 IF J=l THEN 653 

674 IF N1=D AND E=0 THEN Z=l 

675 IF NKD AND Z=0 THEN 653 

676 IF X=0 THEN PRINT 

680 PRINT TAB (6)" 



128 

7839 

5567 

1402 

3644 

2363 

3844 

860 
2156 

2721 

286 
777 
3844 

142 
4149 

4193 

3521 

2937 

4149 

4193 

1298 
1353 
1865 
1468 

2008 

1780 
1160 
1353 
1287 
1561 
3079 

1848 
1082 
2074 
2185 

1381 
1952 

1398 
1565 
3184 

1218 
1105 
2238 

1 1 76 
1523 
1763 
819 
4149 



685 PRINT TAB(14)" 4193 



686 E=G 
690 RETURN 



199 

142 



Til Commodore 64/128 

* N D R I N G 
A F 

D1SKNAVN 

Indsendt af : 

Helge Tjelta 
Melshveien 
N-4 300 Sandes 



0 REM "@TTTTTT@LAGET AV HELGE 
" TJELTA* 

1 POKE 53280,PEEK (53281) 
AND 15 

2 PRINT "|CLR,WHT,2D0WN, 
2RIGHT]ucICBM R]ci" 

3 PRINT " ( CYN , 2R1GHT, 
2SPACES]bl4SPACES]uci" 

4 PRINT "[PUK.2RIGHT, 
2SPACES]b c[2SPACESl 
jciuciucu[CBM R]i" 

5 PRINT "[GRN, 2RIGHT, 
2SPACES | b [ 6S PACES ] bb b. 
[CBM 0.2SPACES|b" 

6 PRINT I CBM 6,2R1CHT, 
2SPACES ? CBM E.4SPACES) 
jckjcklCBM E, 2SPACES, 
CBM Bj" 

9 PRINT " I YEL- ^DOWN • 3 RIGHT, 
BLK | PRESENTERER : " 
PRINT "[CBM 7 , DOWN, 3RIGHT, 
RVS) DISK NAVN OG ID 

ENDRER | OFF I" 
PRINT "[CBM tl, DOWN. 3 RIGHT] 
LAGET AV: 11 

PRINT "[CBM 5 . DOWN, 3RIGHT ] 
HELGE TJELTA" 
PRINT "[CBM 3,D0WN,3R1CHT] 
SON DAG 15.9|2SPACES 
( I985)":PKINT M |WHT]" 
20 FOR Q=0 TO 2000: NEXT Q: 
GOTO 40 

PRINT "I HOME I": IP YOO 
THEN POKE 214,Y-1:PRINT : 
POKE 21 1 ,X .RETURN 
DS="0":DV=VAL (D$) 
POKE 53280,6: POKE 53281. 
REM *** ARBEIDS B1LDE M 
PRINT "[CLR.WHT]*** CBM 64 
I 2SPACESIDISK NAVN OG ID 

ENDRER . [ 2SPACES ] 
PRINT "[2DOWN1 *** 



ID 



I I 



14 



30 



40 
50 
55 
60 



j i , 6 

*** 



65 



70 



80 



90 



100 



110 



2 SPACES LAGET AV: 
5SPACES HELGE TJELTA. 
3SPACES 
PRINT "|H0ME,9D0WN, 
1 4 SPACES, RVS, SHIFT \, 
CBM *,0FF, 14SPACES.RVS, 
SHIFT \.CBM *,OFF] rt 
PRINT " [ 1 3 SPACES , RVS , 
SHIFT \,2SPACES,CBM *,0FF, 
1 2 SPACES, RVS, SHIFT \, 
2SPACES , CBM *,0FF]" 
PRINT "[14SPACES,RVS, 
2 SPACES , OF F , 1 4SPACES , RVS , 
2SPACES .OFF]" 
PRINT "[14SPACES,RVS, 
2 SPACES .OFF. I 4SPACES , RVS , 
2SPACES,0FFl ,r 
PRINT "[ 14 SPACES, RVS, 
2SPACES,0FF.14SPACES,RVS, 
2SPACES,OFF|" 
PRINT 



1959 
1407 
1466 
2590 

1961 

2589 

2332 
3337 

1592 
1940 
2986 

1363 



1155 
1445 

3378 



2971 

2752 

2236 

1667 
1667 
1667 
153 



130 



140 



150 



160 
170 



180 

190 
200 
210 
220 
230 



240 
250 
260 



270 
280 
290 
300 
310 
320 
330 
340 



350 
360 
410 

420 
430 



440 
490 



500 
510 

560 

630 



640 
660 

690 
700 

750 

760 



770 
780 



360 
510 



E$= m 
THEN 
THEN 
THEN 



THEN 310 
GOTO 700 
GOTO 880 
GOSUB 660: 



PRINT "|DOWN,l2SPACES|u 
4SHIFT 10SPACES]u 
4SHIFT *]i n 
PRINT " VELG|2SPACES]=> 
[3SPACES, SHIFT -lNAVN 
[ SHIFT -,2SPACES]<ELLER> 
[ SHIFT -] ID [ SHIFT -]" 
PRINT "| 12SPACES] j 
[4SHIFT *lkl I0SPACES] j 
[4SHIFT *1k[D0WN]" 
PRINT 11 TAST[2SPACES] = > 
I3SPACES]<J/N)" 
X=l :Y=23:G0SUB 30:PRINT 
"TASTl 2SPACESJ = > ( 3SPACES ] 
<S) FOR SLUTT" 
X=12:Y=7:G0SUB 30:PR1NT 
'<*** £R DISKEN I ? ***■" 
FOR 1=1 TO 300: NEXT 
GET ES:IF ES= MM THEN 230 
IF ES="J" THEN 250 
IF ES="S" THEN GOTO 850 
X=12:Y=7:G0SUB 30:PRINT " 
RVS]*** ER DISKEN 1 ? *** 
OFF]" 

FOR 1=1 TO 300: NEXT :GOTO 
180 

X=l :Y=20:GOSUB 30:PRINT " 
[ 28SPACES ) 11 

X=l :Y=20:GOSUB 30: PRINT 
"TAST[ 2SPACES J = > j 3 SPACES ) 
(N/I 
GOSUB 
GOSUB 
REM 
REM 

GET E$:IF 
IF ES="N" 
IF ES="I' 
IF E$ = "s' 

PRINT "1CLR] ":CLOSE 1 
CLOSE 15:GOTO 40 
GOTO 310 

REM *** LESER ID *** 
OPEN 15,8,15:PRINT#15,"l"+ 
DVS 

OPEN 1,8,3 "#": PRINT* 15, 

"Ul :3"DV* 18,0" 

PRI NT*1 5 . "B- P : 3 . 1 6 2" : GET 

#l l ID$(l).IDS(2),IDS(3), 

IDS(4),IDS(5) 

REM *#* LESER NAVN *** 

PRTNT#15,"B-P:3,144 H :NAS= 

"":F0R Q=l TO 16:CET #1, 

A$ : NAS =NA$+A$ : NEXT 

RETURN 

REM *** SKRIVER NAVN OG ID 

*** 

ID$(6)=1D$(1 )+IDS(2)+ 

ID$(3)+TD$(4)+TDS(5) 

X=8:Y=7:GOSUB 30:PRINT ; 

D$:" |RVS|'":NA$;"- "; 

ID$(6) 

RETURN 

t$="l"+MIDS C STRS (DV), 

2):PRINT*I5, 1$ 

RETURN 

REM *** NAVN FORANDRER * 

#* 

X=13:Y=17:GOSUB 30: PRINT " 

[RVS|NAVN[OFF)" 

X=l :Y=23: GOSUB 30:PRINT 

"MAX. 16 BOKSTAVERt 6SPACES] 

:(7SPACES].|6SPACES):"; 

X=l : Y=20 : GOSUB 30: INPUT 

"DISK NAVNl 1 1SPACES ] " :NA$ 

NA$=LEFT$ (NA$+"| 1 3SPACES] 

",16) 

PRINT*15, "B-P:3, 144": 
PRINT*! , NAS : : PRINT* 1 5 , "L : 2 : 



2341 



3347 

889 
1564 
1372 
1647 
3747 




588 
5 72 



1540 
1720 
1594 
3446 



3796 
4207 



142 
2104 

142 



810 



820 



830 

840 
850 
860 
870 
880 
930 

940 



950 



3"DV'\ 18,0" 

X=l :Y=20:GOSUB 30: PRINT 4225 
"TAST I 2SPACE S 1 => 1 4 SPACES ] 
(N/I )[21SPACES] " 

X=l :Y=23:GOSUB 30:PRINT 4499 

m tast|2spaces]=>[4spaces] 
<s> for slutti 1 3spaces]" 
x=12:y=17 :cosub 30:print " 2742 
[shift -]navn[shift -]" 

REM 

CLOSE l:CLOS£ 15 680 
GOTO 2 70 586 
STOP 144 
REM ID FORANDRER *** 

X=29:Y=17 :GOSU6 30: PR INT " 2064 
IRVS] ID (OFF]" 

X=l :Y=23:GOSUB 30-.PRINT 4476 
MAX. 5 BOKSTAVERl 8SPACES] 
:[3SPACES| :[5SPACES]" 
X=l :Y-20:COSUB 30: INPUT 3859 



TAST INNj 6SPACES \ ID 
16SPACES]"; IDS 
960 X=l :Y=20:GOSUB 30:PRINT 

"TAST [ 2S PACES )=> ( 3SPACES ] 
(N/IH35SPACES]" 
970 X=l :Y=23:GOSUB 30:PRINT 
"TAST I 2 SPACES ] => [ 3SPACES I 
(S) FOR SLUTTI 11 SPACES |" 
980 TF LEN (1D$)<>4 THEN I§= 

LEFTS (IDS+'" ".5) 
990 PRINT#15,"B-P:4,162"; 

PRLNT#1 ,TDS; : PRINT* 1 5 , "U2 : 
3"DV" l£,0" 
1000 1$="I A +MID$ ( STRS (DV), 

2):PRINT#15, 1$ 
1O10 X=29:Y=17 :GOSUB 30: PRINT " 

ID " 
1020 REM 

1030 CLOSE 1: CLOSE 15 
1040 GOTO 270 



4439 



4513 



2503 
4315 



2104 
1921 



680 
586 



Til Commodore 64/128 

AFBETALING 
Indsendt af: 

Morten Elk 
Fortly 21 
, 2610 Radovre 

1 POKE 2040, 11: POKE 53269,1 

2 FOR 0=704 TO 704*62 :READ 
W:POKE Q,W:NEXT 

3 POKE 53287,0 

4 DIM A(9,4):FOR W=l TO 9: 
FOR B=l TO 4 :READ A(W,B): 
NEXT :NEXT 

5 FL«-1:D1M C(8) 

6 B(l)=10:B<2)=ll:B(3)=I0: 
B(4)=1:B(5)=11:B(6)=1 

10 POKE 53280,9 :POKE 53281,9: 

PRINT YEL] " 
20 PRINT " CLR, YEL] 

ucccccccciucccccccciuccccc 

ccciucccccccci"; 
30 PRINT "[SHIFT -,2SPACES] 

GAELD ( 2 SHIFT -] AFDRAG 
( 2SHIFT -IRENTEFOD 

I 2SHIFT -,2SPACESlANTAL 

[SHIFT -J"; 

40 PRINT M 1 SHIFT -,8SPACES, 
2SHIFT -,8SPACES.2SHIFT -, 
8SPACES,2SHIFT - JTERMINER 
(SHIFT 

50 PRINT "(SHIFT -,8SPACES, 
2SHIFT -,8SPACES,2SHIFT 
8SPACES, 2SHIFT -,8SPACES, 
SHIFT - "; 

60 PRINT r, | SHIFT -,8SPACES, 
2SHIFT -,8SPACES,2SHIFT 
8SPACES. 2SHIFT -,8S PACES, 
SHIFT -J"! 

70 PRINT 

''jcccccccckjcccecccckjcccc 

cccckjcccccccck"; 
75 IF NOT FL THEN 500 
90 PRINT "[lOSPACESl 

ucccccccc iucccccccci" 

100 PRINT "I IOSPACES, SHIFT 
2SPACES ] IALTl 2SPACES , 
2SHIFT -,2SPACES]IALT 
[2SP ACES, SHIFT 



110 PRINT "1 IOSPACES , SHIFT -J 2664 
BETALESl 2SHIFT -,2SPACESl 

RENTE | SHIFT -]" 
120 PRINT M | IOSPACES, SHIFT 1914 

8SPACES.2SH1FT -,8SPACES, 

SHIFT - " 

130 PRINT "[ IOSPACES, SHIFT 1914 
8SPACES . 2SHIFT -,8SPACES, 
SHIFT - " 

140 PRINT "[ lOSPACESl 3379 

icccccccckjcccccccck" 
150 PRINT "[ 3SPACES1 4809 

CCCCCCCCCCCCCCCCCCCCCCCCCC 

1820 160 PRINT C "16SPACES] 3915 
2631 uccccccccccccccccccccccccc 
ci" 

1002 170 PRINT "|6SPACES,SHIFT -1 3225 
4012 RENTE FRA TERM IN A TIL B 

[SHIFT -]'* 

180 PRINT 11 [ 6SPACES I 3920 
1245 jccccccccccccccccccccccccc 
3541 ck" 

190 PRINT "[6SPACES I 3915 

2113 UCCCCCCCCCCCCCCCCCCCCCCCCC 

ci" 

5780 200 PRINT " [ 6SPACES , SHIFT -| 3204 
RESTGAELD EFTER TERMIN A 
[SHIFT -]" 

4794 210 PRINT "[6SPACES] 3920 
jccccccccccccccccccccccccc 

ck" 

220 PRINT "I 6SPACES ] 3915 
uccccccccccccccccccccccccc 
3848 ci" 

230 PRINT "(6SPA0ES, SHIFT 3378 
3SPACESJ UDSKRIFT AF 
TERMINER [3SPACES, SHIFT -] 

3124 

240 PRINT " | 6SPACES ) 3920 
jccccccccccccccccccccccccc 
ck" 

3124 500 XX=160:Y=98 1538 
505 PRINT " HOME, 4DOWN, RIGHT!" 2578 
^X=B(l):COSUB 5100:GOSl'B 

5844 510 PRINT " 2RIGHT] "; : X=B(2) : 3181 
GOSUB 5 00:GOSUB 5300 
520 PRINT " 2RIGHT]";:X=B(3): 3189 
667 GOSUB 5 00:GOSUB 5 300 

3174 530 PRINT " 2RIGHT] " ; : X=B (4) : 3207 

GOSUB 5 50:GOSUB 5 30O 
2259 532 IF NOT FL THEN 540 668 
534 PRINT "[HOME . 10DOWN. 4242 
11RIGHT1";:X=B(5):G0SUB 
5100:C0SUB 5300 



536 PRINT M |2RIGKT| ,, ;!X=B(b): 

GOSUB 51O0:GOSUB 5300 
540 GOSUB 2000 

550 IF FL=0 AND Y>89 THEN 560 
560 IF Y>89 THEN 800 
570 GOSUB 5400 
580 LF PL=0 THEN 540 
395 IF PL=0 THEN 540 
^97 GOSUB 5050 
600 PRINT "[HOME.16D0WN]" 
605 PRINT "(6SPACES] 
ucccccccccci 
uceccccceeeci" 

610 PRINT *'L6SPACES,SH1FT -| 
SKKIVE TAL[ SHIFT -| 
, | SHIFT - | BEREGNE TAL 
[ SHIFT -1* 

620 PRINT "I 6SPACES ] 

jcccccccccck 
jccccccccccck" 
630 XX=160:Y=170:COSUB 2O00 
635 PV=0:FOR W=8 TO 9 
660 EF XX>=A(W,l) AND Y>=A(W, 

25 AND XX<=A(W,3) AND Y<= 

A(W,4) THEN PV=W 
642 NEXT 

645 IF PV=0 THEN 630 

660 PRINT " HOME, L 6 DOWN 1" 

670 PRINT " 33SPACEG I " 

671 PRINT " 33SPACES " 

672 PRINT " 33SPACES " 

673 IF PV=9 THEN 700 

675 PRINT "1 1 1SPACES]SKRLV 

TALLET : " 
680 OPEN 1,0: INPUT#1,T:CL0SE 1 

682 PRINT [KGME,20DOWN, 
38SPACES)" - 

683 PRINT "[ 30SPACES 1 " 
690 B(PL)=T 

695 FL=0:GOSUB 505(>:GOTO 500 

696 GOTO 500 

700 S=B(3)/lO0+l :R*=S~B(4) 
710 IF PL* I THEN B(1)»B(2)/R* 

(R-1)/(S-1) 
720 IF PL=2 THEN B(2)=B(l)*R* 

(S-l >/(R-l) 
730 IF PL=4 THEN B(4)=LOG (1/ 

(l-B(i )/B(2)*(S-l) )')/LOG 

(S) 

740 IF PL<>3 THEN 795 

745 0V=B(2)/B(l)+1:UN=(B<2)* 

B(4)/B(l))-(1/B{4)) 
747 TE=OV 

750 R=TE"B(4) :FE=B( 1 )-B(2 )/R* 

(R-D/CTE-l) 

755 IF FE>0 AND OV-UN>. 00001 

THEN 765 
760 GOTO 790 

765 NY«(OV+UN)/2:R*»NY~B(4):FE= 
_ 8(1 )-B(2)/R*(R-l)/(NY-l) 
770 IF FE=0 THEN 790 
772 IF FE>0 THEN OV=NY:GOTO 

778 
7 75 UN=NY 

778 IF OV-UJK. 00001 THEN 790 
750 GOTO 765 
790 B(3)=(NY-J)*100 
795 FL=-1:B(5)=B(4)*B(2):B(6)= 
. B(5)-B(t):GOTO 10 
800 POKE 53248, 0:POKE 53249,0: 

POKE 53264,0 :C0SUB 5400 
810 IF PL=0 OR PL<5 THEN 540 
815 PRINT ,, |CLR]"; 

820 IF ?L>5 THEN 860 

821 PRINT "|CLR f 3DOWN]DU SKAL 
ANGIVE DE TERMINER, DU 
VIL HAVE RENTEN BEREGNET 
FOR . 

822 PRINT "BEGGE TERMINER ER 



3213 

565 
1597 
1185 
587 
895 
895 
611 
1334 
3992 



3432 



3904 



2295 
1453 
5517 



1 30 
1126 
1334 
1386 
1386 
1386 
1205 
2173 

1434 
2903 

1179 
562 

1552 
564 

2407 

3415 

3278 
4229 



1185 
4526 

647 
2851 

2504 

604 
5301 

1105 
2201 

706 
2161 

632 
1361 
3557 

2902 

1265 
495 
905 

56 58 



1NKLUSIVE.' 
823 PRINT "HVIS DU VIL HAVE 
BEREGNET TIL 

SLUTNINGENSKRIVER DU BLOT 
"0' UNDER 'TIL'" 

825 INPUT "I 3 DOWN, 3RIGHT ] RENTE 

FRA TERMIN NR: | CBM @ ] 1 ' ; A 

826 IF A<1 THEN 821 
830 INPUT "[3RIGHT, DOWN | RENTE 

TIL TERMIN NR: [CBM C d l*':B 
835 IF B>B(4) THEN 821 
837 IF B=0 THEN B=B(4) 
840 S»l+B(3)/100 
842 R=(B(1)-B(2)/(S-L))*(S"B- 
S~(A-1)>+B(2)*(B-A+L) 

845 PRINT "L3DOWN, 12SPACESI 
RENTEN ER: " 

846 PRINT "[ 12SPACES I 



6502 



3068 

1033 
2924 

1388 
1309 
1450 

4302 

1938 
2157 

847 PRINT "I DOWN, 1 2SPACES j 635 

848 X=R:GOSUB 5100:PRINT X 1413 

849 PRINT "[ DOWNjFLERE 3951 

RENTEBEREGN 1NGER (J/N)"; 

850 GET A$:1F A$="" THEN 850 1508 

851 IF AS="N M THEN 20 1290 

852 GOTO 821 586 

860 IF PL=7 THEN 920 1007 

861 PRINT "|CLR,DOWN] 3243 
RESTGAELDEN NAAR TERMIN A 

ER BETALT. " 
865 PRINT "HVIS ALTSAA DETTE 5960 
BELOB I NDBETALES SAM- 
TIDIG MED TERtfIN A, ER 
LAANET" ; 

870 PRINT " BETALT UD." P68 

875 INPUT "1 2DOWN, 3RIGHT |A = 2871 

TERMIN NR: | CBM @]";A 

876 IF A>B(4) THEN 860 1390 

877 S=B (3J/100+I 1056 
880 R=B(1 )*S~A-B(2)*(S-A-1)/ 2958 

(S-l ) 

885 PRINT "I 4DOWN, 7RIGHT I 2421 

RESTGAELD:" 
890 PRINT "I 7RIGHTl===-=====" 2841 
895 X=R:GOSUB 5100:PRINT » 1848 

I6SPACES)";X 
900 PRINT "[4D0WN,4RIGHT| FLERE 2748 

BEREGNINGER (J/N)" 
905 GET AS:IF A § = " " THEN 905 1596 
910 IF A$= N THEN 20 1290 
915 GOTO 860 594 
920 PRINT "(CLR,4SPACES] 2548 
UDSKRIFT AF TERMINER 
I 5SPACES " 
922 PRINT "HVIS DER SVARES 0 6677 
PAA "TIL TERMIN NR' , 
|2SPACES|K0RES DER KELT 
TTL STDSTE TERMIN" 
930 INPUT "| 3D0WN,4RIGHT]FRA 2276 

TERMIN NR: I CBM @]";A 
935 INPUT "I3D0WN,4RIGHT]TIL 2360 

TERMIN NR: | CBM @] H :B 
940 A=INT (A): IF B=0 THEN B= 1681 
B(4) 

950 IF A>B OR A<0 OR B>B(4) 2218 
THEN 920 

960 INPUT "[2D0WN,4RIGHT | PAA 3640 
1) SKAERM ELLER 2) 
PRINTER : [CBM i§\"il 
965 IF Z=l THEN 980 857 
970 OPEN 4,4,7:PRINT#4,"tERMlN 6315 
NR rESTGAELD bETALING 
[ 2SPACES ] rENTE 5SPACES ] 
aFDRAG(4SPACES J " ; 

972 PRINT#i , "iALT BET. iALT 3435 

AFDR iALT RENTE" 

973 PRINT#4," -— 5686 

974 PRINT#4," 5583 



980 11=0 375 
982 S=li(3)/100+1 :FOR Q=A TO B 1587 
985 IF Q>B THEN Q=B 88b 
990 C(l )=Q:C(2)=B(1 )*S"Q-B(2)* 7540 
(S-Q-l )/(S-l ):CC3)=Bt2): 
C(4)=(C(2)+C(3))/S*(S-1> 
995 C(5 =C(3)-C(4):C(f>)=Q* 5419 
C(3):C(7)=B(1)-C(2)!C(8)= 

999 IF 0=0 THEN C(3)=O:C(4)=0: 2821 
C(5J=0 

1000 IF Z=l THEN GOSUB 1500: 1829 
GOTO 1060 

1010 FOR W=J TO 8:X=C(W):G0SUB 5261 
5100:X$=STR$ (X) + M 
1 10SPACE5 ":XS=LEFTS (X$, 
9)+":" 

1020 IF W=8 THEN PRINT#4, LEFTS 2293 

(X$,9):GOT0 1035 
1030 PRIST#4,X$: 795 
1035 NEXT 130 

1050 PRINTS," - 5686 

I ii. 

1051 PRINT#4," ----- 5583 

1060 NEXT*" 130 

1071 IF B-BC4) AND BO I NT (B) 3652 

AND R=0 THEN A=B: R=- 1 :GOT0 

982 

1075 CLOSE 4 264 

1080 GOTO 20 429 

1200 GOTO 1200 567 

1500 FOR W=l TO 8:X=C(W):GOSUB 3607 

5100:C(W)=X:NEXT 

1505 PRINT "ICLRlTERMIN NR 1540 

1 3S PACKS] :";C(1 ) 

1510 PRINT I DOWN ] RESTGAELD 1440 

[ 3SPACES ] :";C(2) 
1520 PRINT "iDOWNjBETAl.ING 1267 

I4SPACES] :";C<3) 

1530 PRINT "I DOWN] RENTE 1505 

[7SPACES] :";C(4) 
1540 PRINT "[ DOWN ] AFDRAG 1500 

(6S PACES 1 :";C(5) 

1550 PRINT "| DOWN HALT BETALT : 1589 
";C(6) 

1560 PRINT "| DOWN HALT AFDRAG : 1596 

";C(7> 

15 70 PRINT "| DOWN] I ALT RENTE 1519 

[2SPACES] :";C(8) 
1580 GET A$:IF A$ = IHEN 1580 1465 

1590 RETURN 142 

2000 W=PEEK (56320) 904 

2010 OP=( NOT W AND 1 )*6 1611 

2020 NE-( NOT W AND 2)*3 1449 

2030 VE=( NOT W AND 4)*1.5 1646 

2040 H0=( NOT W AND 8)*. 75 1652 

2050 FI=NOT W AND 16 952 

2060 XX=XX+H0-VE: IF XX>3I7 THEN 2984 

XX=317 



2070 IF XX- 25 THEN XX=25 1605 

2080 XJ=0:X2=XX: IF XX/255 THEN 3523 
X2=XX-255:X1=1 

2090 Y=Y+NE-0P:IF Y^237 THEN Y= 3046 
237 

2100 IF Y<53 THEN Y=53 1317 

2110 POKE 53248, X2:P0KE 53249, 2822 

Y;POKE 53264,X1 

2120 IF FT*16 THEN RETURN 986 

2200 GOTO 2000 561 

5020 PRINT ,, (39SPACESl'*; 1736 

5030 RETURN 142 

5050 PRINT "|H0ME,6D0WN, 1982 

39SPACES ] " 

5060 FOR W-l TO 17:PRINT " 2740 

[39SPACES| M :NEXT 
5070 PRINT "I 39SPACES] 1736 

5080 RETURN \W> 

5100 IF X=0 THEN RETURN 977 

5101 IF X<.0001 THEN X=0: RETURN 1853 

5105 XG=INT ( LOG (X)/L0G (10)- 2931 

3):XG*10~XG 

5110 X=INT (.5+X/XG)*XC 1947 

5120 RETURN 142 

5150 X=INT (X*10+.5>/IO 1665 

5160 RETURN 14? 

5200 TF Q=0 THEN RETURN 963 

5205 FOR W-l TO Q: PRINT " 1792 

[RICHT]";:NEXT 

5210 RETURN U2 

5250 IF Q=0 THEN RETURN 963 

5255 FOR w»l TO Q: PR I NT " ":: 1798 

NEXT 

5260 RETURN 142 

5300 A$«MID$ ( STRS (X).2):Q=8- 3526 

LEN (AS):GOSUB 5250:PRINT 

AS; : RETURN 

5400 PL=0 563 

5410 FOR W-l TO 9 755 

5420 IF XX>=ACW,1) AND Y'=A(W, 6057 

2) AND XX<=A(W,3) AND Y<= 
r A(W,4) THEN PL=W:W=9 

5430 NEXT 130 

5440 RETURN |42 

6000 DATA^O, 12,0, 0,114, 0,1,132, 2727 

6005 DATA 254,4,0,1.24.31,254. 5240 

crtin 224.0.16-1^8.31.2^0.1.28,6 

6010 DATA 16.128,31,224.128,0, 4136 

16, 224, 15,224, 5l, 2*0,0 

6020 DATA 0,0,6,0. 0, 0,0,0,0.0, 4167 

0,0,0,6,0,0,0,6,0,0,6,6,0, 

6200 DATA 9,53,73,89.89.53.153, 7985 

89. 169, 53, 233, 8$. 2*9. 53. 

313,89,53,153,269,169 

6210 DATA 53, 1 77,269, 193,53, 3072 

201,269,217 ' * 

6220 DATA 52,182,142,206,154, 2675 

182,256,206 
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10 POKE 650,255:POKE 36879, 7362 
233:POKE 36867, 34:P0KE 

36865. 42;P0KE 36869,255: 

POKE 36878,10 

11 PRINT "[CLR] " CURS (8 ) 607 
20 POKE 52,28:P0KE 56.28:CLR 3762 

:F0R A=7424 TO 7431 :P0KE 
A,0:NEXT A 

30 fl=7167 853 

31 B=B+1:READ C:tF C=-l THEN 3208 
A=0:B=O;C=0;COTO 33 

32 POKE B,C:GOTO 31 1053 

33 A$="| 12DOWN,2LEFT| (BLKlCD 5017 
I WHT] E | BLK ) FGH [DOWN. 

SLEFT] 1JJJJJ [H0ME| rt :G0TO 



400 

40 L=3:S=O:TI$= n 00000O":P= 
36877 

70 E=7800:A=Q:D=-1:Z=0:X=I :Q= 
2 

75 IF L<1 THEN 400 
SO PRINT " [HOME r BLU, OFF, 
1 5 DOWN] 

KKKKKKKKKKKKKKKKKKKKKKKKKK 
KKKKKKKKKKKKKKKKKK" 

81 PRINT "[CLR,RVS,REDlSC0RE: 

82 PRINT "[HOME, DOWN, RVS, PUR] 
HIGH SCORE:" 

83 PRINT "[HOME, 2DOWN. RVS, 
YELlTID: [ 9SPACES ,GRN] LIV : " 

84 PRINT 1 1 [ HOME , 3 DOWN , B LK 1 
LLLLLLLLLLLLLLLLLLLLLL 

85 PRINT "[ HOME ,BLU, OFF. 
I 5 DOWN | 

KKKKKKKKKKKKKKKKKKKKKKKKKK 
KKKKKKKKKKKKKKKKKK" 
100 GET GS: PRINT " [ HOME ] " : POKE 
P, 230: IF GS="A n THEN Y=l : 
Z=16:X=17:Q=18:QW=-3:WQ=- 
3:WE=-3 

110 IF GS= ,, D M THEN Y=-1:Z=13: 
X=14:Q=I5:QW=1 :W1=1:WE=1 

120 IF G$="|F1J" THEN Y=22:Z= 
0:X=1 :Q=2:QW=-22:WQ=-2 3: 
WE=-24 

130 IF GS='MF7] M THEN Y=-22:Z= 
G:X=1:Q=2:QW=20:WQ=21:WE= 

140 IF GS= n S" THEN Y=0:Z=0:X= 

1:Q=2 
145 E=E-Y t 
130 A=A-D: B=INT C RND Cl)*17)+ 

151 IF A>B THEN D=l 

152 IF A<B THEN D=-l 

153 PRINT TAB ( A ) AS 

154 POKE 646,30:PRINT "| HOME , 
RVS , 6RIGHT ] " S ; " | HOME , DOWN , 
1 0 RIGHT | "HS : " 1 HOME , 2 DOWN , 
5RIGHT] T1S [ 5KIGHT] "L 

160 IF PEEK (E-22)=L2 THEN E=* 
E+22 

161 IF PEEK (E+22)=l THEN 350 
170 POKE E,Z:POKE E+l,X:POKE 

E+2,Q:P0KE E-QW,32:P0KE E- 
WQ,32:P0KE E-WE.32 
175 IF PEEK (E+23)<>32 THEN 
300 

180 IF TI5>"000100" THEN 400 
200 POKE P,245:GOTO 100 
250 GOTO 100 

300 IF PEEK (E+23)=5 THEN 330 
305 IF PEEK (E+23)<>5 THEN 310 
310 POKE 36877, 190:FOR ER=1 TO 

500: NEXT ERrPOKE 36877,0: 

L=L- I 
320 GOTO 70 

330 S=S+50:FOR KF=254 TO 128 



net i 






331 


2997 




926 




/ 3o J 


400 




401 


1586 






402 


20L3 






404 


2035 






405 


mi 


406 


7383 


408 




410 


7080 


412 




414 


56^4 


41 7 


5512 


418 




420 


461 J 










1000 


2785 


1010 


433 


1020 


1895 






1030 


1067 


1040 


1185 




454 


1050 


6682 






1060 




1070 


2041 


1 ADA 

1 080 


1678 


1 090 


6310 


1 100 




1 1 80 


1 fl c o 

1953 






1 190 


1338 




1540 


1 230 


c c : 
J JO 




1718 




1718 


1240 


4830 


1250 




1260 


439 




5122 


2000 



STEP -I:P0KE 36876, RF:P0KE 

36874, RF: NEXT RF: 

FOR RF=128 TO 254: POKE 

36876 , RF: POKE 36874, RF-40: 

N£XT RF: POKE 36876,0: POKE 

36874.0: GOTO 70 

POKE 36867,46: POKE 646,30: 

POKE 36877,0: LF S>HS THEN 

HS=S 

PRINT "[ CLR,2DOWN,4RIGHT, 
RVS 1 STORM SLIGHTER" 
PRINT "[ DOWN, 10RIGHT, RVS] 
BY" 

PRINT "[ DOWN, 4RIGHT, RVS] 
L.L. SOFTWARE" 
POKE 646,40 

PRINT "[2DOWN,6RIGHT,RVS|A 
[ 2 SPACER 1 - VENSTRE" 
PRINT M | D0WN,6RIGHT,RVS]D 
[ 2SPACES] - HOYRE" 
PRINT "(DOWN T 6RlGHT,RVS]Fl 

- OPP" 

PRINT "|D0WN,6RIGHT.RVS]F7 

- NED" 

PRINT "| DOWN, 6 RIGHT, RVS] S 
[ 2SPACES ] - STILLE" 
PRINT "1 DOWN, 3 RIGHT, RVS] 
SP1LLETID - 1 MIN" 
PRINT "I DOWN, 7 RIGHT, RVS, 
BLK] PRESS F5* 
GET TS:TF T$<>"[F5l" THEN 
420 

POKE 36867, 34: GOTO 40 
DATA 0.0,0,14.255,255,14.0 
DATA 24,24,126,24,255,231, 
126.60 

DATA 0,0,0, 1 12,255,255, 

DATA 0,0,7,3,0,0,0,0 
DATA 0,0,255,255,96,192, 

192,191 

DATA 0,0,255,255,24,24,24, 
24 

DATA 0,0,255,255,12.6.6,6 
DATA 2 ?^7, 230, 222,31, 19, 

DATA 224.224,96,120,248, 
200,206,254 

DATA 255, 127, 3'1, 15, 7, 1,0,0 
DATA 255,255,255,255,255, 
255,255. $55 

DATA 124,131,56,255,255, 
255,255,555 

DATA 255,255,224, 1 12,56, 
28,255,2^5 

DATA 129.192,224.255.255, 

62,1,3,128.192,112,255, 

254,55$, 224,0 

DATA 0,0,0,0,128,0,0,0 

DATA 0,0,0,0,1 ,0,0,0,1,3, 

14,255,157,255,7,0 

DATA 129,3,7,255,255,124, 

128,192 

DATA -1 



7023 



4123 

2292 
2166 
2218 

984 

1952 

1775 

205.1 

1936 

2122 

2618 

2101 

1942 

1525 
2612 

3075 

2246 

1800 
2991 

2692 

2 500 
2825 

2839 

2576 
4167 

3449 

3.215 

5640 

1677 
3693 

3530 

417 
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fra side 18 

Programllstninger Ira bladet. 

Siden starlen har vi solgt band og 
diskelter med de programmer, der 
er lisiet ud i bladet. 

Fra og med i ar er prisen pa band 
og disketteversionen ens, nemlig kr. 
118.00. 

Skulle du mangle programmerne 
fra tidlfgere numre, harvi dem liggen- 
de helt tilbage fra starten. 

Superdisk 1. 

Via vort Internationale tilhorsforhold 
er vi kommet i besiddelse af nogle 
virkelig gode programmer, sorn vi 
kan tilbyde Iseserne til lavpris. 

Spreadsheet (regneark) med 30 ko- 
lonner og 26 raskker (780 celler). 
Cellerne kan indeholde tekst. lal og 
simple formler. Compile! udgave. 

BASIC 4.5 er el maskinkodepro- 
gram, der giver dig omkring 50 nye 
basickommandoer, hovedsagelig 
omkring skasrrneditering. diskette- 
kommandoer og sprites. 




Regnskabssystemer 

RUN har to professionelle regns- 
skabssystemer, der begge er skre- 
vet i Comal 80 og som folge deraf 
kreever en Comal kapsel version 
2.01. 



SOU 
•130 
400 
350 
300 
250 
200 
ASQ - 
100 - 



0 
-50 

— 1QD 
-13U 

-200 
-250 
-300 
-330 
-•400 
—ISO 
-300 



GRAPH MAKER 64. et program, der 
laver meget flotte sojlediagrammer 
BASlC-verston, sa du kan bruge 
rutinerne i egne programmer. 

Prisen for denne diskette med alle tre 
programmer er kun kr. 1 1 &.00. Pro- 
grammerne er engelsksprogede. 
men med dansk vejledning. 



Der findes to versioner af regn- 
skabssystemet. nemlig med eller 
uden tjenesteydelser. Program- 
merne koster henholdsvis kr. 
375,00 og kr. 575.00. 

Lses i ovrigt RUN nr. 7 og 8 eller 
indsend frankeret svarkuvert for 
yderligere oplysninger. 

Funktionsanalyse 

Matemalik er nogle gange nernmere 
at forsta, hvis man samtidig kan se en 
grafisk fremstilling. 

RUN's matematikprogram inde- 
holde r alle de facil iteter, der kan fa en 
eller flere funktioner grafisk ud pa 
skasrm eller printer. Samtidig er der 
alle muligheder for at foretege rele- 
vant funktionsanalyser. 

Programmet har en meget flot gra- 
fik ( arbejder lynhurtigt, og kan vasre 
et veerdtfuldl bidrag til matamatikun- 
dervisningen. 

Programmet fas bide pa band og 
diskette, og koster kr. 295,00. 




Tekstbehandling 

RUN's lille tekstbehandlingsprogram 
indeholder de faciliteter. som de tle- 
ste har brug for til daglig. Hovedvaeg- 
ten er lagt pa. at programmet skal 
vasre enkelt og hurtigt at betjene. 





-1 







Programme! er skrevet I maskin- 
kode, og er derfor lynhurtigt. Det er 
desuden et af de eneste tekstbe- 
handlingsprogramnner. der ogsi fas 
pa band. 

Prisen pa bSnd- og disketteversio- 
nen er ens. nemlig kr. 295,00. Kan 
ligeledes bestilles gennem RUN. 
Send evt. frankeret svarkuvert for 
yderligere oplysninger. 



Tipsprogramme! 

Vores tipsprogram har laet bade ris 
og ros. Ros, fordi det er et meget flot 
program og ris , fordi der har veeret en 
del fejl, der forst har vist slg ved 
praktisk brug. 

Programmet er nu »atluset« og fas 
pa bade bSnd og diskette til kr. 
195,00. 

Til tipsprogrammet fas i ovrigt en 
diskette med 10 populsere tipssyste- 
mer for kr. 1 18,00 - kun diskette! 



Privatregnskab 

RUN's bestseller, Privatregnskab, 
hjaelper dig med at holde styr pa 
okonomten. 

Du kan opstille budgerter, indlaste 
faktiske udgifter, og senere foretage 
sammenligninger for at se. hvordan 
dit budget holder. 

Privatregnskab fas ligeledes pa 
band eller diskette til kr. 198,00. 



Endelig har vi samlet de 15 bed- 
ste fra RUN's forste ar pa en di- 
skette. 



Alle programmer fra RUN saelges 
kun mod forudbetallng. Send dit 
belob enten pa check eller giro 
(glrokonto 1 48 31 61 ) - og husk at 
skrive praecis, hvad der er, du be- 
stiller. □ 
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af Tor Engebakken 



I forste del af denne artikel sa vl 
naarmere pa, hvordan variabler og 
arrays bliver geml i maskinen. Hvis 
du ikke har test artiklen, bor du lasse 
den forst. da meget af del, som bliver 
beskrevet her, ikke kan forstas uden 
forsl at have laest den forste artikel. 

Forskellen pa en streng 
og artdre variabler 

Mens floating point og inleger variab- 
ler har hele sin vasrdi »inde« i selve 
variablen, vil en slrengvariabel kun 
indeholde la?ngden og en lo-bytes 
pointer til selve strengen (se artikel 
1)- 

Laangden af strengen ligger i een 
byte, og derved forstSr vi begraans- 
ningen at strengens taengde pa 255 
bytes. De to neeste bytes er en poin- 
ter til det sted i hukommelsen. hvor 
selve strengen ligger. 

Hvor ligger en streng? 

Vi sa i den forste artikel. at vi har et 
»tomt" omrade i maskinen mellem 
det sted, hvor arrays slutter, og top- 
pen af Basic- bmradet (adresserne 
49-50 mdeholder slutningen af ar- 
rays og 55-56 mdeholder toppen af 
Basic). Der er vel ingen, der bliver 
sserlig forbavset, hvis del afsiores. at 
strenge ser ud til at trives i denne 
frizone. 

NSr den torste streng bliver opret- 
tel, vil denne Isegge sig overst op 
mod toppen af Basic-omradet. Den 
neeste streng vil Icegger sig elter den - 
ne osv. Strengene vil pa denne made 
arbejde sig nedover mod arrayomra- 
det. For at holde orden pa dette, har 
vi en zero-page pointer, som inde- 
holder adressen til sidste brugte 
plads af strengomradet. Denne poin- 
ter finder vl i adresserne 51 -52. 

Nar vi starter, vil den pege til top- 
pen af Basic, og arbejde sig nedover 
efterhanden som der bliver oprettel 
nye strenge. Prov dette eksempe! i 
direkte mode: 

IPRINTPEEK(51 ) + PEEK(52)*256 
|AS="EN HVID HEST" 

|PRINTPEEK(51 ) + PEEK(52i*256 

i } 

Du vil nu se, at indhotdet i adresserne 
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51 og 52 er kravlet 1 2 bytes n edover i 
hukommelsen. 

Nogle strenge ligger i pro- 
gram met 

Ikke alle strenge bliver lag! i dette 
-tomme- ornrade. Strenge, som bli- 
ver definerel i programmed ligger |o 
allerede godt, og del viile va=re at 
slose med pladsen at koptere dem 
over i strengomradet. Denne streng 
vil derfor befinde sig i selve Basic- 
leksten: 

100 AS = "DETTE ER EN STRENG" 



Hvad sker der med en ny streng? 

Det, som kan vsere interessant at 
vide, er, hvad der sker, hvis streng- 
variablen allerede eksisterer. 

Nu skulle man maske tro, at opera- 
tivsystemet bare tlytter lidt rundt pa 
strengene. og lader den nye streng 
ligge pa samme plads som den 
gamle. 

Helt uden tanke pa pladshensyn la- 
der maskinen den gamle veerdi ligge i 
ro, og oprerter den nye vaardi pa en 
ny plads ifolge adresserne 51-52. 

Dette vil medfore, at denne adres- 
se stadig raser nedover, sasrlig r pro- 
grammer med megen tekstmanipu- 
lation Sa laange vi har plads nok, vil 
dette ikke medfore noget problem. 

En variabel er en variabel 
er en variabel... 

En variabel eksisterer ikke for den 
defineres, men til gengasld far den 
ogsa evigt liv! 

For du korer et program skriver du: 
PRINT FRE(O) 

Dette vil give dig del antal bytes, du 
bar tilbage. nar du har Indlaest pro- 
gramme!. 

RUN sa programmet, STOP efter 
et ojeblik, og PRINT FRE(O). 

Du vil opdage, at du pludselig har 
mindre plads end for. Dette skyldes, 
at variablerne oprettes dynamisk ef- 
terhanden som de opdages i pro- 
grammet. Du har derfor mindre plads 
tilbage, end du du skulle tro! En 



anden vigtig ting at huske pa, nar du 
skal beregne pladsen som dil pro- 
gram til sidst beslaglaegger, er at en 
variabel a/dngdor! 

I modsaetning til f.eks. PASCAL, 
som opererer med lokale variabler. 
som forsvinder nar de er brugt, vil en 
Basic-variabel ligge i hukommelsen 
og optage plads, selv om den kun er 
brugt en eneste gang. 

En del variabler bruges kun som 
hjcelpevariabter i Iskker, midlertidige 
lagerpiadser osv. Det er derfor smart 
at vasnne sig til at bruge nogle vana- 
belnavne. som du ved ikke er vigtige, 
saledes at du narsomhelst kan be- 
nytte dig af denne variabel uden at 
frygte at der sker noget med dit pro- 
gram af den grund. 

Det er ganske almmdetigt at bruge 
I, J og K som tsellere i lokker. og 
navne som TEMP, DUMMY og DUST 
er heller ikke ukendte navne pa va- 
riabler, som aidrig mdeholder noget 
vlgtigt! 

Undga kalkulerede strenge 

I programmet nedenfor, indla?ser vi 

II adresser. Vi ser hurtigt at 
aUesammen ender pa »vej«, og kun- 
ne da komme pa den tanke, at det 
ville va?re pladsbesparende at lade 
programmet tilfeje denne endelse 
uden at lasgge den md i datasaetmn- 
gerne. 

Kor nedenstaende program, og 
noter dig den ledige plads, du har 
tilbage. 



100 TOW 1=0 TO to 
110 UKAI) AS ( I I 
I 20 NBXT 

130 DATA KKEI>KKIKSKNSVK.I 
UO DATA MANSKNSVBJ 
150 DATA HRUUNVKJ 
160 DATA HKANIWOI.IJVKJ 
I 70 DATA PHESTEVEJ 
180 DATA llBSOTfBJ 
1 90 DATA TKSTKVHJ 
ZOO DATA TI)1.1.I-:VI-M 
JIO DATA VI 1.IJVVKXI 
220 DATA PHEQEN5KNSVKJ 
230 DATA TORGVKJ 
100 UKM I.KntC I'l.ADS 
SIO PRINT" LED I G I'LAUS ! 
i20 PK1NTI PEEK til 1 * PEEK (52 ) *256 » 

-H'i:kk(4')Jii'i:i:k<50)-256) 



Fjern sa alle VEJ-endelserne i data- 
ene, og omskriv linje 1 1 0 til folgende: 




110 READA$(I):A$(I)=AS(I)+"VEJ' 



Kar nu programmet igen. og du vil 
opdage. at du har ca. 100 bytes min- 
dre til radighed end tor (For ordens 
skyld skal del lilfojes. at den nye linje 
110 er 18 bytes laangere end den 
forste. og at vi ved at fjerne -vej« fra 
aiie data, har sparel 33 bytes. Vi 
skulle derfor vaere kornmet ud pa 
plussiden med 15 bytes mere). 

Det der sker er, at i den ferste 
udgave at programmet ligger alle da- 
taene i programdelen, og der ligger 
de i ro! I den anden udgave ligger 
dataene stadig i programmet, men 
samtidig bliver der oprettet en kopi- 
+ »vej* i strengomradet. 

I st^det lor at spare plads med 
dene »smarte« lille tpck, mister vi 
altsa plads. 

Hvad sker der, nar strengene 
rammer array-omradet? 

Pa grund af den made, strenge op- 
bygges pa, vil der efter et stykke tid 
begynde at blive dariig plads. Den 
nye streng truer med at Isegge sig Ind 
over array-omradet. og det kan ikke 
tolereres. 

Som folge af. at alle gamle streng- 
vasrdier stadig ligger i maskinen, 
starter denne en rutine, som pa ame- 
rikansk har faet del fornejelige navn 
"GARBAGE COLLECTION" (op- 
samling af affald - herefter kaldet 
GIG:). 

Denne rutine gemmer alle aktive 
strenge. og fjerner alt affaldet. som 
ligger fra lidligere operatsoner, Dette 
er en utrofig langsommelig proces, 
og hvis du af og til opdager, al maski- 
nen bliver >»ded« i kortere eller Icen- 
gere tid, er det hcjst sandsynligt det- 
te. der er ved at ske. 

Varigheden af denne »udren$- 
ning- har direkte sammenhaeng 
med, hvor mange strenge. der op- 
holder sig i strengomradet. 

Programmet nedenfor skulle illu- 
strere dette pa en isjenfaldende 
made. Hvis du korer det, som det 
star, vil du have bade god plads, og 
G.C. vil vaare umserkelig. (G.C. bliver 



T! 



i eksemplet forarsaget af af PRINT- 
FRE(O), som automatisK fremtvinger 

G.C). 



100 MAX^S(IU:IHMAS(MAX):GOSUB^00 
1 Ifl KMU=0TOHAX 
1120 A5(I) = "NOK EN Sl'KKNG MKIJ KT 

MBNINIIShBST INDIIOFJ) FOR AT 

VISE ET KKEKMPEI." 
1 40 NHXTI :r.OSUB?0O 

1 99 KM) 

.'00 I'K1NT-NU STAKTKH CARHAGE 

COLhKCTION" : 

T1S--00UO00" 
205 A«PKF.(0) 1 1NU0TI1ENA=A^S535 
.'10 PH1NT"I.EI»1G PLADS : "A"BYTEK 
Z20 PIUNT-UARBAGK COLLECTION 
I ftKKMJTTET" 

| 225 PHINT-TID GARBACK COIiUiCTlON 
I : "Tl$ 

2 JO RETURN 



Hvis du derimod forandrer linje 1 20 til 
hnjen nedenfor, vil resultatet vasre et 
ganske andet (Nar du skriver +"", vil 
dette ikke forandre noget ved seive 
strengen. men du vil tvinge maski- 
nen til at fortage en kalkulation med 
den, og straks havner den ude i 
strengomradet). 

120 AS(t)="NOK EN STRENG MED 
IET MENINGSL0ST INDHOLD FOR 
AT VISE ET EKSEMPEL'V" 



Et par programmer 

Nar man ved, hvordan variablerne er 
opbygget, kan man fuske med dem, 
som man selv vil. 

En rutine, som kan vaare nyttig er 
en DUMP-rutine. Denne finder 
frem til hver af variablerne, finder ud 
af hvilken type, det drejer sig om. og 
skriver indholdet ud pa skaermen. 

RUN programmet »»DUfvtP«, og 
skriv derefter SYS 49152, nar du er 
interesseret I at vide, hvilke variabler 
du har oprettet. og hvad de indehoi- 
der i ajeblikket. 

Sortering af strenge 

I Basic er dette et stort arbejde, hvis 
vi har et storre antal strenge at sorte- 
re. Dette skyldes ikke kun, at Basic er 
sa ulrolig langsorn, men ogsa fordi 
den stadige flytning af strenge med- 
forer en udstrakt G.C. 

Dette kan undgas ved at vi ikke 
sorterer strengene, men bare pom- 
terne. Ved kun at forandre pointerne, 



vil der |o ikke blive oprettet nogen 
nye strenge, og dermed undgas G.C. 

Programmet er alligevel skrevet i 
maskinkode, fordi Basic trods alt er 
for langsomt. 

Programmet hedder -M.C. SOR- 
TERING*-, og ved at kere det, laagger 
det en maskmkoderutine ind i 49400 
og (remover. 

Rutinen er beregnet til at sortere 
en en-dimensional streng-array. og 
give en fejlmefding, hvis du prover 
noget andet 

Rutinen kaldes ved at skrive SYS 
49400.A8 (eller BS. HW$ eller hvad 
du nu har kaldt din array). 

Programmet benytter sig af en 
helt almindelig bobble-sortering. og 
vil hoppe ud af rutinen, nar alle ele- 
menterne er sorteret. Dette er gan- 
ske praktisk saarlig ved store arrays, 
da man undgar, at den korer del hele 
igennern. selv om blot et enkelt ele- 
ment skal sorteres. 

Der felgler ogsa et demo-program 
til sorterings-programmet. Det hed- 
der »SORT DEMO, og forudsastter 
at du pa forhand har kort «M.C. SOR- 
TERING". sa rnaskinkoden ligger i 
hukommelsen, 

Programmet lagrer forst en array af 
vilkarlige strenge. I linje 100 er »AN- 
TALL« antal af elementer. »MAX« er 
max laangde pa elementerne i array- 
'en.(Disse variabler kan du selvfol- 
gelig forandre for at teste, hvordan 
rutinen vtrker pa forskellige storrel- 
ser af arrays). 

Nar dette er gjort, sorteres array- 
'en fra A og fremover. 

Der er ca. 1 20 gange hurtigere end 
en tilsvarende rutine i Basic. Hvis du 
er interesseret i at (a en follng med, 
hvordan basic kommer ud i samrnen- 
ligning. kan du udskifte linje 130 
med: 

130 GOSUB 170 
Sammenligmng af tid: 
100 elementer: 
M.C. SORTERING: 1 sek. 
BASIC: 1 mm, 50 sek. 
10O0 elementer: 

M.C. SORTERING: 2 mm, 13 sek. 
BASIC: 4 tim. 39 min. 15 sek a 
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INPUT/OUTPUT er RUNs laaser- 
brevkasse, hvor du har m ulighed for 
at fa svarpa nogle af de problemer, 
du gar 09 tumler med. 

Desvaarre kan vi ikke na at bes va- 
re alle de breve, vi modtager. Vi 
praver at fa sa mange med som mu- 
ligtog udvaalger dem,vi mener, der 
har bredest interesse. 

Commodore-interesserede, som 
har sporgsmal eller tips at bidrage 
med, kan skrive til Tor Engebakken, 
Brandvoldgatan 1,2000 Lillestrom. 
NORGE. 



Et svsrt sporgsmal 



INPUT . 



He} Tor. 

Jeg synes, at jeres blad RUN eralle 
tiders, og I har svar pi en masse 
gode sporgesmikl. 

Jeg har dog et, som du sikkert ikke 
kan klare! 

Jeg har kebt programmet KOALA 
PAD, men jeg kan ikke finde ud af, 
hvordan jeg kan »gemme« tegnin- 
gerne, s& jeg kan bruge dem i mine 
egne spii. Kan I hjaatpe rnig? 

Hiisen 

Michael Goldin 
163. Rue Helenter 
L-6987 Rammeldange 
Luxembourg 



OUTPUT 



Sa du troede ikke, at |eg kunne klare 
dette spsrgsmal? 

Nar KOALA PAD lagrer de fserdige 
billeder, vil disse ligge pa disketten 
som en prograrnfil. Hvis du kikker 
efler pa de to forste bytes (siart- 
adressen) i filen, vi! du opdage, at 
billedet er tagrel fra adresse S6000 
(24576). 

Laangden pa hele denne fil er fra 
$6000-5871 0, og dette svarer til noj- 
agtig 10001 bytes. 




Da KOALA PAD lagrer multicolor- 
billeder, behover vi 8000 bytes til 
bitmonsteret, og yderligere 2000 by- 
tes til at bestemme,. hvilke farver. der 
skal vasre pa skaarmen. 

De ferste 8000 bytes fra 24576 til 
32575 ($6000-$7F3F) er selve bit- 
monsteret, 

De naaste 1 000 fra 32576 til 33575 
($7F4Q-$8387) er den del af farver- 
ne, som sKal op pa skaarrnen. 

De sidste tusinde bytes fra 33576 
tit 34575 (S8388-S870F) skal place- 
res i den saadvanlige farvehukorn- 
melse fra 55296 og fremover. 

Tilbege er kun den ene byte i 
34576 ($8710), og den skal pokes 
ind I 53281. 

Da du skal bruge billedet i dit eget 
program, er det ikke saarlig fornuftigt 
at have dette liggende i $6000. Dette 
er jo midt i Basic-omradet. og vil let 
medfore pladsproblemer. 

Det bedste alternativ er at laagge 
grafikken bag et af ROM-omrader- 
ne, saledes at du optager mindst 
mulig plads. 

I programmet KOALA PICTURE 
flyttes forst alle data fra omradet i 
S6000-S8710 til det hoieste grafi- 
komra.de i masktnen, (Programmet 
forudsaatter, at du forsl har indlaast 
billedet fra KOALA PAD ".8.1")- Bit- 
monsteret laagges under KERNAL'- 
en ( og skaarmdata laagges fra 51200 
til 52199. Farvedata + skasrmlarven 
laagges fra 52224 og fremover. 

Nar vi skal vise den hojoploselige 
skasrm, ma vi fortaelle maskinen, at vi 
har grafikdataene i en anden grafik- 
bank end den saadvanlige. 

Dette gore ved at kalde rutinen 1 
170 med en del parametre. Dette 
gores i Hnje 130, og de forskellige 
variabler betyder folgende: 

BLOKK / Hvilken datablok vi skal 
bruge (0-3). 

HIRES / 1 - Hires / 0 = normal 
mode. 

SKJERM / 0 = nederste highres 
skaarm. 1 = hoieste skaarm. 



af Tor Engebakken 

MULT / 1 = Multicolor / O = normal. 
SCREEN / (0-15) Der er 1 6 steder at 
placere den normaie skaarm indenfor 
et 16Kgrafikomrade. I vorttllfselde vil 
skeeTmen starte i $C400 (start af bank 
49152 + 1 * 1024). 

Subrutinehoppet i linje 100 skal 
heldigvis kun udfores en gang!!! 
Men hver gang vi skal vise hojoplos- 
ningsbilledet, ma vi kopiere de en- 
kelte farvedata som i linje 110-120. 

Som du sikkert vil opdage, er ko- 
piering at sterre omrader i Basic en 
utroJig langsom affaare, og disse ruti- 
ner bor skrives om i maskinkode. 



al pa rad og reekke 



INPUT 



77/ input/output 

Jeg har en C-64 med diskettesta- 
tion 1541. 

Jeg har udarbejdet en det mindre 
programmer til administartivt brvg, 
men har det problem, at evt. talkofon- 
ner som resultat af beregnmger »ta- 
ber« hojrestillede O'er i udsknft pa" 
skasrm og/eller printer. 

Kan dette athjmipes ved aiminde- 
lig (Basic) programmering. 
Pa forhind tak for svar, 

Med venlig hiisen 
P. Bonding 
Redovrevej 17 
2610 Redovre 



^OUTPUT 



I virkeligheden er du stillet overforto 
forskellige problemer. 

1) Hvordan beholder man hojrejuste- 
rede nuller, 

2) Hvordan justerer man tallene efter 
decimaltegnet. 

En metode at lose dette problem pa., 
er at gange taliet med 100, lave en 
STR$ af taliet, og derefter saattes 
decimaltagnet ind pa rette plads. 
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Dermed skulle problemet vel egent- 
lig vaere lost? 

Men der er Here ling at teenke pa. 

Hvad med negative tal. tal mellem 
0 og 1 (O'et foran decimalpunktet ma 
|o udskrives!) etc. etc. 

Resultatet bliver programme! »JU- 
STER TALL-<, og selv om problemet 
loses, er der sikkert andre mader at 
gore det pa. 

Er der en at lasserne, der tager 
handsken op? 



LOAD ERROR - Forstehjjelp 



INPUT _ 



* feft* 

Til Tor og RUN 

Jeg er den lykkelige ejer af en 64 'er, 
men erfabet ind i et (for mig) uJoseligt 
problem. 

Det drejer sig om, at jeg loader 
mine egne programmer ind. men fir 
en »LOAD ERROR*. Ndr jeg LlST'er 
programme!, har jeg ojensynfig hele 
programmet. Men den ferste gang 
jeg retter i programmet eller tilfojer 
en ny llnje. elfer pa" anden mide 
bruger programmet, gir maskinen 
fuldstasndig \ baglis. 

Jeg h$ber meget, at OUTPUT vil 
bjselpe mig (og sikkert mange andre 
Isesere). da /eg efterhanden har mi- 
stet en del programmer pS denne 
made. 

Til sidst mange tak for et godt blad. 

Hilsen fra 

Skorpionen 

(Kebenhavn) 



.OUTPUT 



5) Load backup-programmet. (Hav 
altid en backup af vigtige pro- 
grammer!) 

6) Band hc?jt og riv dig i haret! 

7) Find dig en anden hobby! 

Ja, ja da! 

Du har gjon alt dette, og stadig 
dukker -LOAD ERROR* op pa 
skaermen. 

Sa kan du forsoge at lose selve 
problemet. Ved en -LOAD ERROR" 
undlader maskinen at gore en del 
nodvendig oprydningsarbeide, som 
er nodvendig efter LOAD. 

Det vlgtigste er , at den ikke fortsel- 
ler Basic, hvor programmet slutter. 
Denne slutadresse (indes heldigvis 
et andet sted i maskinen. 

Skriv dette i direkte mode: 



POKE45.PEEK(174):POKE46, 
PEEK(175):CLR 



Save sa dit program et andet sted. 

Hvis du er heldig. vil dit program nu 
virke tint. 

Men der hojst sandsynlig en eller 
to bytes, som er lorkerte. Hvis du er 
heldig, er dette i en tekst eller REM 
seeming eller andre mindre vigtige 
steder. 

Hvis det ikke er tilfaeldet, er det 
bare at ga i gang med forstorrelses- 
glas. og lede efter de tejl, som Irgger 
rundt omkring. Det er altiden god ide 
at rette op pa sadant et program, hvis 
man blot har faet det meste ind i 
hukommelsen. 
GOD FORN0JELSEM! 



Problemer med diskettemaniialen 



INPUT. 



Det er desvaarre ikke sikkert, at jeg 
kan hjseipe dig. N£r der star -LOAD 
ERROR*, erdetnetop fordi, derer et 
eller andet, der er gaet gait. Men h-er 
kommer en farstehjaelpsliste: 

1) Rens kassettehovedet med sprit ^ 
eller et specielt rensemiddel. 

2) Sast kassettespilleren sa langt fra 
skeerrnen som muligi. 

3) Juster kassettespilleren (der fln- 
des et saat specielt til dette) 
f) Prcv med en anden kassette- 
spiller. 




Davs pa RUN! 

Jeg har et par sporgsma\t til jer 
Det drejer sig om diskettestatio- 

nen 1541. 
Da leg har to stks.. v/t jeg gerne 

have den ene til at hedde enhed nr. 9. 

Det star der for tidt om i manualen. 
Jeg vil ogsa gerne vide, hvordan 

/eg Mr mdlaast en bestemt btok fra 

disketten. 

Mange hilsener fra 
LPD 

7100 Vejfe 



OUTPUT 



Du kan i hvert fald troste dig med. at 
du Ikke er den ferste, der har haft 
problemer med diskettemanualen. 
Den lader en del tilbage at snske! 
1 ) Der er to mader at send re devicenr. 
pa diskettestationen. Den ene via 
software, den anden ved at forandre 
setve stationen. 

Nar diskettestationen taendes. vil 
operativsystemet^ikke efter hardwa- 
res lasgge en del oplysninger om 
stationen I hardware, og lasgge op- 
lysninger om stationen i diskettesta- 
tionens RAM. Dette RAM-omrade 
kan vi indlasse fra eller skrive til med 
henholdsvis »M-R« og «M-W-« 
kommandoerne. 

Du bruger disse kommandoer pa 
samme made som de andre diskette- 
kommandoer. 

Forst ma du abne en kommando- 
kanal til diskettestationen. Dette go- 
res ved at abne en fil med den sekun- 
dasre adresse llg med 15. 



Eks. 10 OPEN 1.8,15 



Derefter sknver du kommandoen til 
diskettestationen, I tillaag til setve 
kommandoen ma du ogsa fortaalle 
hvor i stationens hukommelse. du vil 
skrive nye vsardier ind. Derefter hvor 
mange vserdier, du sHal skrive, og til 
slut folger sa vasrdierne. ^ 
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Format: 

PRiNT1,"M-W" CHRStlowbyle 
adresse) CHR$(highbyte adresse) 
CHR$(antal bytes) CHRSfbyte 1) 
CHR$(byte 2) CHR$<osv.) 



N&r du skal torandre dlskettestatio- 
nens device nr., ma du forandre dette 
to steder. Dette skyldes, at maskinen 
har to forskellige adresser til at sende 
og modtage data. I praksis er del en 
fordel at have samme nr. pa begge 
disss funktioner. 

Adresserne er henholdsvis 1 1 9 og 
1 20. Derudover ma du huske at lasg- 
ge tallet 32 til, tor du skriver i adresse 
119 og tallet 64. tor du skriver i 
adresse 1 20. 

Programmel »DISK CHANGE- 
gor dette enkelt og let. 

Da du nu har to diskstationer, ma 
du udfore et lille ritual tor at sendre 
den ene til 9. 

1) Taand for den ene diskstation. 

2) Load og RUN diskchange. 

3) Taand for den anden station. 

Du kan ogsa asndre devicenr. perma- 
nent ved at skille dtskettestationen 
ad og asndre den hardwaremasssigt. 
Da dette imidlertid odelaegger garan- 
tien, er det bedst at lade en tagmand 
ordne dette. Da du har to stationer, vil 
den sidste losning nok vasre den 
bedste pa lasngere sigt. 

2) Na.r du skal mdlaase en bestemt 
blok fra disketten, bruger du en an- 
den diskkomrnando. Den bruges pa 
samme made som den forrige, og du 
rna forst abne en kommando-kanal. 



100 OPEN 15,8,15 



Ved hjselp af denne kanal kan du 
sende meddelelser til diskettestatio- 
nen, men du skal jo heist have fat i 
dataene ogsa, og du ma deiior abne 
en kanal til dette. 

Diskettestationen har 5 buffere. 
som den bruger ved disse kornman- 
doer. Du kan specrficere, hvitken 
buffer du skal bruge, men i praksis er 
det bedst at lade operativsystemet 
ordne dette s-elv, 



110 OPEN2,8,2,"# n 

Nummertegnet bag den sidste kom- 
mando gor, at maskinen selv vaslger 
hvilken buffer, som skal bruges. 

N&r du har abnet disse filer, kan du 
afsende kommandoen, som gor, at 
en bestemt sektor indleeses i buf- 
feren. 



2) Sknv 256 bytes ind i bufferen. (Du 
bruger PRINT#2,AS; Husk at bruge 
sernikolon efter ASM!) 

3) Skriv sektoren til disketten med 

PRINT#15 l ,, U2:"(datakanaJ); 
fdisk);(track);<sektor) 



PRINT#,"U1'"(data 
kanal);(disk 0/1 );(track):(sektor) 

I eksemplet nedenfor vil du indlsese 
track 18, sektor 1 i bufferen, som 
horer til datakanal 2. 

Lseg mserke til, at tallet for DISK 
her er 0. Dette parameter har ingen- 
ting med device nr. at gore, men 
skelner mellem disk nr. 0 og 1 i et 
dobbelt diskdrive. 

120 PRINT#1£ 



Nar du sa' har indlsest sektoren i 
bufferen, er det pa tide at finde de 
enkelte data. Dette gores ved at laase 
datakanalen. 

Forst sorger vi imidlertid for. at 
buffepointeren star pa begyndelsen 
af bufferen. 

PRINT* 1 5,"B-P:";(datakanal); 
(pointervasrdi) 

140 PR1NT#15,"B-P:";2;0 



Nu kan vi endelig begynde at leese de 
enkelte data. Dette gores med en 
enkel lokke. 

150 FOR l = 1T0255:GET#2,A$:IF 
A$ = ## THEN A$=CHR$(0) 
160 PRINT ASC(AS);;NEXT 

Hvis du skal bruge dataene til noget 
ma du setvfolgelig tage vare pa dem 
et eller andet sted. Du kan f.eks. 
leegge dem ind i en array, eller slet og 
ret POKE ASCH-vasrdieme ind i 
hukommelsen. 

Hvis du skal skrive noget til en 
sektor. benytter du den omvendte 
procedure. 

1) Scet bufferpointere til 0. 



Programme! »LES BLOKK« indlse- 
ser en sektor og udsknver mdholdei i 
hex-tormat p«k sksermen. 



Problemer med cursoren 



INPUT. 



Hvordan forhindrer jeg cursoren t at 
bevsege sig frit i et adventure-pro- 
gram, (Forhindre at cursoren kan sty- 
res rundt pa skeermen). 

Med hilsen 
Gran! Ove Stueland 
Malmveien 1 
4340 Lye. Bryne 



OUTPUT 



Det, du har brug for, er at lave din 
egen INPUT-rutine, som kun slip- 
per de tegn igennem, du er mter- 
esseret I. 

Programmet -INPUT" giver dig tov 
til at indtaste de almindelige bogsla- 
ver og tegn, men lader ikke cursorta- 
sterne andet uonsket slippe 
igennem. 




TWwldige tat i maskinKode 



INPUT. 



*M 

Jeg er en energrsk CBM 64 ejer, men 
har selvfdlgekg ikke Jutter medgang. 
Her er nogle af de problemer, jeg for 
tiden g&r og roder med. 
Men forst: tak for et godl blad! 
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1) Hvorctan gemmer man t.eks. ad- 
resseomradet 12288-14336 som en 
programfil, der loades med LOAD 
"PRQG'\8,1? 

2) Hvordan laver man tilfasldige tal < 
maskinkode? 

Pi forhand tak fordi mine sporgsmil 
undgik papirkurven! 

Hilse-n 

Anders Buch 
Rolighedsvej 28 
7790 Hvrdbjerg 



.OUTPUT 



1 ) Det forsle loses sare enkeit ved at 
man abner en programfil pa disket- 
len. sender lowbyte/highbyte al star- 
tadressen, og derefter saver pro- 
gramme! byte for byte (se program- 
met nedenfor). 



100 AM226B:»=l4J16 
110 0!»BN I .8,3,"PHG,i^W ,, 
120 III =lNTtA/256) :(/>=--A-HI«2S6 
1 10 PRlNTll.CHRSt 1.0) ; : 

PIMNTII .CMHSI HI 1 ; 
140 KOHl=rtTt)B:l'KINTll , 

CHHS ( PKEK ( I I 1 ;:NKXT 
I'iO CI.OSE1 



2) For at lave et tilfasldigt tal, behover 
vi noget, som aendrer slg. 

Raster-registeret i SD012 og den 
laveste del at klokken skulle derfor 
passe udmserket- Hvis vi Isegger no- 



get af delte i A-reg. og leger lidt 
med det (EOR, ROL, ROR. ADC. 
etc.), skulle vi have alle muligheder 
for at H et tilfredsstillende resultat. 

I programme! nedenfor vil du ved 
JSR S2000 fa et tilfasldigt tal tilbage 
mellem 0 og 255 i A-reg. 

Hvis du cnsker et tal mellem t.eks. 
0 og 20, kan du bruge subrutinen t 
S2009, LOAD A-reg. med det heje- 
ste tal du vil have frem +1 . 



LDA #$21 
JSR $2009 



Resultatet vil ligge i A-reg., og vtl 
vaere et tal under $21. 
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Et ydmygt onske til slut 

Der er flere af jer, som sender mig 
programmer til vurdering eller i hab 
om, at jeg skal finde en elfer anden 
fejl, som far programme! til at 
crash'e. 



Og det er helt I orden - men!!! 

Jeg har tkke tid til at sidde og 
indtaste meterlange listninger, lige- 
meget hvor morsomt jeg matte sy- 
nes. det er. 

Derfor mi jeg have programme! pa 
diskette (heist) eller Kassette. 

Vaslger du at sende dem pa kas- 
sette. ma de god! vsere savet med 
TURBO, men I sa tilfajlde ma der 
vsere en almindelig version pa den 
anden side. 

Kassettespillerne er nu engang 
ikke justeret ens, og den enes turbo 
er den andens frustration. 

Desuden skal programmerne 
vaere godt dokumenterede med noj- 
agtig beskriveise af. hvad program- 
met kan. hvor fejlen opstar etc. 

Til sidst er der vel kun al sige SYS 
64738. Q 




Litteraturservice 
COMMODORE 64/128 

Mark Andrews: Commodore 64/128 Assembly 
Language programmering 

Engelsk 320 sider, Howard Sams 1985, kr. 257,00 
Mitchell Waite m.fl.: 

The official book for the Commodore 128 
Engelsk 120 sider Horward Sams kr.226,00 

Kurt Friis Hansen: 
Dus med Commodore64/PLUS 4 
Dansk 300 sider C&B kr. 198,00 

Bogerne leveres fragtfrit over hele landet. 

Stor nedsaettelse pa boger til Commodore 64/VIC-20 Forlang bogliste 




Salgsafdelingen 
Blakildecentret 18 
2630 Tastrup 
02-99 93 71 
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fra side 7 

FIGHT NIGHT 

Nu kan Mogens Palle godl 
ga hjem og laegge sig. Du 
indbyder med dette spil til et 
brag al en aften. 5 topbok- 
sere er pa programmed 
Disse stiller atle op mod ud- 
tordreren. Og del er |o dig! 

Fortvivl ikke. Opgaven ly- 
der maske nok lidt sveer, 
men helt uforberedt moder 
du ikke op. 

For det forste tor du lov til 
selv at bygge din eller dine 
boksere op fra bundea 
Svulmende muskier eller 
asparges-arme. Kasmpelar 
eller stikkelsbaarben - der 
er frit valq! Du far desuden 



lav lil al Vcetge hvad der skal 
vsere din CHAMPS staarke 
side. Skal nan vasre beds! til 
stgd mod hovedet, elier 
skal ban have nogle udmar- 
vende kropslag ? Ou be- 
stemmer! Pa samme made 
bestemmer du ogsa hvad 
der skal vaare hans svag- 
hed. Hovedstad eller 
kropslag ? Du far selvfolge- 
lig ogsa lov til at bestemme 
hvilken etnisk gruppe dm 
bokser skal komrne fra. 



dygtige promotor du er, gar 
du selvfolgelig ogsa hen og 
ser dine modstandere SPA- 
RE. Laere deres svagheder 
og deres styrke a1 kende. 

Har du diskette kan du 
selvfolgelig »genrme« dine 
boksere, slette dem igen el- 
ler modificere lidt pa deres 
evner eller udseende- 





Inden du stiller din bok- 
ser op til selve matcheme, 
kan du selvfolge trasne ham 
i de forskellige varianter. 
Der er ogsa mulighed for at 
SPARE din fighter mod en 
anden bokser. Som den 



Dm bokser skulle nu 
va?re -fit for fight** og sa nu 
er del din opgave som pro- 
motor at stille ham op til 
kamp. Du har frit valg mel- 
lem 5 modstandere. 

Har du diskette kan du 
arrangere en tumering. Der 
bliver vist et turnerings ske- 
ma. Du skal blot udfylde 



navnene pa de boksere der 
skal mode hinanden. 

Uden tvtvl det bedste 
bokseprogram jeg endnu 
har set. Rot grafik. Superb 
afvikling. Vasrsgod, tag 
plads ved RINGSIDE, karn- 
pen kan begynde I 



Titel: Fight night 
Computer: CBM 64/128 
Pris: 

Disk: kr. 289,00 
Band: kr. 199,00 
Betjening: Tastatur og 



Joystick 




Fabrikat: Sydney 




Minmening 


d-13) 


Computerbrug: 


10 


Manual: 


10 


Betjening: 


10 


Vedvarende appel: 


9 


Helheden: 


10 



MERCERNARY 

Har du lyst til at vasre leje- 
soldat? Vel og maerke leje- 
soldat i det 21. arhundrede 
og ude i det det fjerne og 
ugeestfri verdensrum, 

I sa fald skal du anskaffe 
dig dette spil, men vser nu 
sikker pa, at du har masser 
at tid. For dette spil slutter 
ikke de forste par dage- 

Du er pa vej mod nye 
udfordringer, da dit rurnskib 
at en eller anden grund bli- 
ver nsesten odeiagt. Derfor 
styrter du ned pa planeten 
TARG. Rumskibet totalforli- 
ser; men du selv og rumski- 
bets computer BENSON 
overiever. Benson er din 
eneste mulighed for kontakt 
med omverden. 

Pa TARG findes tilsynela- 
dende kun en by. Men den- 
ne by bestar af flere lag, den 
overste ovenpa planeten og 
resten under jorden. Pa 
planeten findes 2 forskelli- 



ge racer, eller hvad du nu vil 
kalde dem. Disse er i krig 
mod hinanden. Begge on- 
sker, du skal arbejde for 
dem. Men det erditvalg.'Du 
kan ogsa vaelge at vsere ne- 
ulral, men du er nodt til at 
tjene penge, for pa planeten 
findes et rurnskib der er 
island til at vende tilbage lil 
|orden. MEN det koster 
mange penge, ftere end du 




har med. Hvem ©nsker du 
at tjene. Vaelger du den ene 
er du automatisk I krig med 
den anden. 

Gralikken er storartet la- 
vet med 3 dimensioned vek- 



torgrafik. Hvts du ikke ved, 
hvad vektor grafik er, skat 
jeg forklare det. Prov at teg- 
ne en papkasse saledes at 
du kan se alle (Infer t kassen 
ogsa dem der normal! er 
skjult af kassens matehale. 
Det er 3 dimensionel vek- 
torgrafik. Pa den made kan 
man fa en rumlig opfatteise 
af del, der tegnes. 

Etter min menmg er den- 
ne type spil det der giver 
mest for pengene. Spillet 
slutter ikke efter 3 minutter 
og desuden kan spillet spil- 
les igen og igen uden at 
gentage sig selv alt for tit. 

Du er selv med til at be- 
slemme spiliels udviklmg. 
Uden tvivl etspil. du vil tage 
frem mange gange. Der er 
desuden mulighed for pa 
hvilket som heist tidspunkt 
a? gemme, hvad der er sket 
indtil nu, enten pa band eller 
diskette. Pa sin vis er spillet 



en blanding af adventure og 
normal! spil. Men med den 
vsesentlige forskel at du her 
hele tiden kan se, hvad der 
sker rundt omkring dig. 

Titel: Mecernary 
Computer: CBM 64/128 
Pris; 

Disk; kr. 239.00 

Band; kr. 189,00 
Betjening; Tastetur og 
Joystick 

Fabrrkat: OCEAN SOFT- 
WARE Ltd. 



Minmening 


(M3) 


Computerbrug: 


11 


Manual: 


9 


Betjening: 


10 


Vedvarende appel: 


11 


Helheden: 


10 



Ovenstaende program- 
mer er venligst udl&nt af: 



PCS Software 
Tlf.: 02-305488 



QUICKSOFT ApS 
Tlf.: 01-241233 



TWILIGHT A/S 
Tlf.: 01-105588 
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Commodore- MARKED 
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REPARATION 

Er rnicrodaiamaten gael i 
stykker? 

Ring og la en snak om problemet, eller 
send dalamaten (i| os med posten 
Vi reparerer hurtlgi og Dilligt og vi giver 
gerneet tilbud fersi. 
Vi sffilger ogsa reservedele og liibeher. 




GR0NH0J 
elektronik 

v. Frode Harritz 
Monstedvej 35 

7470 Karup 
Tlf. 06-66 11 56 

DATA + 5,25" DISKETTER 

10 Bid. SSOD _ "9kr. 

2S st* . SSOD 359 kr. 

10 Mk.DSOO 1W I" 

25 Uk. D9DO — 399 kr 

Blanks "No Nome" dlskoiicr, power til Commodore 64 
mfl Foroendelac. Indtand; kr. 12 pr. ordro * cvl. op- 
ktwn. FolOreturrot. Tilled Bdagoi lev - d f1 b v loruOtie- 
lolrng (og spar k'. 13 * poatophravrung). 

DATA + JOYSTICK 

Fomem Kvallie» 
og udfcwise 

5 FIRESUTTONS 

.: i "A",: 

2 pi too - fluBfifO 
198 kr. 

Pasaer tfl Commcoao. MaA AmBraa mil 
JEG BEST ILLtR HERVED 

KtTyp* He _ 

Mj -5»b v. toudfc* 

FonwHMMs* to 1W>0 

lair/. — 

SefldcnecltW mooatal pi Giro 9151710 

1 1 5ml pi. efwkr*. 

J og onsMer Settling fcxeiege! ove* run Diners CkiO «w B»- 
tort med 

nt : uOWr 

Uootftknlt! 

DATA + BOX 17. 8970 HAVNOAL. 06-4? 06 31 

HJftHANDlEB rottSPOPOSin" VTUtflVNE 



Disketter5 1 /4" 

(Sendes overall) (kur> kvalUet) 

Precision fra Xidex 

48 TP) SSDD 195? 

48 TPI DSDD 23Qr 

Neutral fra anerkendt fabrlk 

48 TPI DSDD 149 r 

Ovenstaende er 10 stk. priser incl. 
moms, men excl forsendelse. 

McBngdeordrer i alle marker + 

neutral 3", 3V?". 5V*'\ 8" til spotpri- 

ser. Gselder bade forh. , private, fi rma 

og skoler. 

FORHANDLERE S0GES 

IMPORT, EXPORT, ENGROS. DETAIL 

HEXASOFT 

RINGSTEDVEJ 16, DK-4440 M0RK0V 
TLF 03 • 47 41 22. Udl. 009453474122 



Ny mulighed 
for musik pa 
din 64'er! 

Sound Buggy cr en hclt ny enhed, der gi'r 

dig masser af nye muligheder for at spille 
og komponere "asgte" musik pik din 64'er. 

Du far en spandende rytmesektion pa 
hardware sidcn, og cn supcrgod software, 
der g0r del svtcrt at htfre forskel pa en 
Vic 64 og el professionelt el-orgel. 
Og for kun ki.1.995,- incl. moms 



Ring til Randers Musik Import 
pd06-41H88 og h&r nmrmere! 




DISKETTE CHOK! 

FRA HOME DATA 

diskette (neutraie 

double sided (dsdd) pr stk. kr. I9 r 

Supreme disketter 5WT 
double sided (dsdd) pr. stk. kr. 26 r 
Precision disketter SVt" 
double sided {dsdd) pr. stk kr. 26: 
single sided (ssdd) pr. stk. kr. 22 r 
DisketteboJ<se med las fra kr. 223 f 
Vi har desuden alt i tilbeher. spil og pro- 
grammer til laveste priser. 

Alle priser er incl. moms. excl. etterkravs 
gebyrogporio, som bortlalderved torud- 
betali ng, pa gironr. 4 20 22 01 

HOME DATA 

telf. (06) 17 94 99 
tiverdage efter ki. 18.00 
+ hele weekenden 



COMAL 

FAST LOADER 

NU ER DEN ENOEUGI LANDET!! 

Nu Kan du langt om leenge fa en tasHoader 
til dm COMAL 80 kapsel version 2,01 (den 
sorte). Fast-loaderen ligger i en chip (QUICK 
CHIP). Den passer i den tomme sokkel, der 
eri din kapsel Samrnenrnedchippentardu 
en monleringsvejledning Til montering 
krseves kun en lille skruelraekker. 

RUN'er. LOAD'erog CHAIN er 
dine programmermed3V2gange normal ha- 
stighed. 00 _ 

PRISv/forudbetallng kr 0«£0,~ 

(ved etlerkrav (Hlasgges kr 20.-). 

Hvls du Brisker vi skal moniere chippen, sa 

send din kapsel til nedenstaende adresse 

sammen med kr 350,-. 

Eneforhandllng: 

COMAL TODAY DK 

Postbox 1222 - 2300 Kebenhavn S 
Tlf, 01-97 12 98 - GIRO 6 76 75 75 



BECODAN 

tilbytier 

Diskettestation 1541 kr. 2695 

Diskettestation 1570 kr. 3595 

MPS 801 printer kr. 1995 

Comal 80 til C-64- kr. 875 

1702 Farvemonitor kr. 2995 

Philips monitor 

gron/amoer kr. 1250 

Spar lid. tastloader til 
din Commodore 64 - 1 28, 
ring vedr. priser 

Datasette kr. 344 

Commodore 128 D kr. 7995 

Comal 80 til C-64 kr. 895 

Seikosha Printer kr. 4895 

Joystikm/12 mdr. garanti kr. 228 

Disketter 5Va " dagspris. 
Ogsa alt t AMSTRAD. 
Vedr. software ring. 

VI sender over hele landet. 
Alt i tilbehor. 

Autoriseret forhandler 

BECODAN 

01*464655 
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at Robin Sagar 
Intro 

I december nummerel af RUN skrev 
jeg, at jeg i lobet af mm juleferie i 
Storbritanien ville finde ud af. hvad 
der var af nyt inden for adventure spil, 
som jeg sa kunne anmelde her i 
bladel. 

Desvserre er hjemme-computer 
markedet i England vigende, og dette 
medforte, al der ikke kom sa megel 
software frem til Jul, som man havde 
forventet. Jeg bar derfor besluttet, at 
jeg i dette nummer vil anmelde et 
engelsk adventure spil, der har vaeret 
tremme pa markedet i ca. tre mane- 
der, og to amerikanske spil, hvor 
figureme er nogle af Walt Disneys 
meget kEere og kendte. 

Examine 

Adventure international er for tiden el 
af de mest beromte software firmaer. 
der producerer adventure spil. Alle 
har sikkert provet et Adventure Inter- 
national spil pa. et eller andet tids- 
punkt. t.eks -Pirate Advenlure«. Fir- 
maet er ogsa" kendt for deres serie af 
adventures, der er baseret pa figurer 
skabt af Stan Lee og Marvel Comics. 
isEer Spiderman, the Hulk, og tor 
gansKe nylig the Fantastic Four. De 
er ogsa ansvarlige for spil, der er 
bygget over film og tv- programmer, 
som for eksempel Gremlins. 

Del fcrste spil, der bliver anmeldt i 
dag er netop et adventure fra Adven- 
ture International, der er baseret pa 
en tv-serie der er meget popular i 
Storbritanien, og som sikkert kom- 
mer p& dansk tv til efteraret. Dette 
adventure er skrevet og programme- 
ret af Mike Woodroffe og Brian Ho- 
warth og hedder Robin of Sherwood 
»The Touchstones of Rhiannon«. 

Spillet er baseret pa fortasllingen 
og legenden om Robin Hood, den 
gode fyr der levede i middelalderen, 
som blev berovet sin )ord af Prins 




John af England, mens Kong Richard 
var vaek og kasmpede i »det hellige 
land" . 

Robin Hood gemte sig i Sherwood 
skovene sammen med de fredlose 
og frarovede de (orbipasserende de* 
res ngdomme, som han derefter 
overlod til de tattige. Robins vasrste 
fjender var sheriffen af Nottingham 
og Sir Guy of Gisbourne. 

N&r spillet begynder er Robin ble- 
vet fanget af Sir Guy og sidder i et 
fangehul. Her melder det forste store 
problem sig, for selv om du har Muk 
(mollerens son) og Will Scarlett til al 
hjaslpe dig med at komme ud af fan- 
gehullet. er det meget vanskeligt. 
Her er der en meget god beskyttelse 
af spillet. jeg fandt nemlig ud af, al for 
af komme videre matte man bruge de 
kodede hints der kommer sammen 
med instruktionen. Hvis man ikke har 
dem, kan man nassten opgive med 
det samme. 



Nar du er flygtel (hvis det lykkes), 
kan da udforske slottet, mode lady 
Marion og derefter flygte ud i Sher- 
wood skovene, hvor du moder den 
mystiske Heme the Hunter. Dette er 
en person der er klasdt i dyreskind og 
bserer horn pa hovedet. Han fortaaller 
dig, at for at lose dette adventure er 
det nodvendigt at aflevere the 
Touchstones of Rhiannon pa deres 
rette plads, for en ond troldmand 
finder dem og vil bruge dem til at 
kontrollere og fortrylle de andre per- 
soner i fortaallingen. Spillet har over 
150 forskellige lokaliteter. hvoraf de 
140 er med en meget fin hojoplos- 
ningsgrafik. Der er en meget fin brug 
af larver, der pa sine steder neesten 
har en tre dimensional effekt. Des- 
uden er nogle af billederne »leven- 
de-« for eksempel vandfaldet. og det- 
te giver spillet en yderiigere dimen- 
sion. 
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I modssetning til mange af de andre 
adventure international spil er ordfor- 
radet I delle spil blevet udvidet og 
dermed bedre. Desuden kan man 
kaade informationer sammen - i sarn- 
rne korte form som i Infocom spiliene 
- detle gores ved al adskille koman- 
doerne med et komma eller punk- 
turn. Man kan bru-ge hele sastninger, 
men det er ikke sikkert at compute- 
ren kan forsta det hele. Man kan ikke 
sige, at spillet har meget humor eller 
sasrlig variererede svar pa, hvad du 
taster ind. For eksernpel kan man 
skrive "examine maid Marion-' og du 
far svaret -you see nothing special". 
Men det er alligevel et vasldig godt 
spil. som kan anbefales til alle, der 
holder af adventures. Dette er det 
farste af ialt fire spil om Robin Hood, 
s£ hold oje med de neeste. 

Det naaste spil er ikke el typtsk 
adventure. Her er Walt Disney's 
Mickey Mouse bovedperson i Mi- 
ckey's space adventure. Dette spil 
henvender sig til en gruppe af yngre 
Isesere. En smule engelsk er man 
nodt til at kunne. men ikke megel. da 
komrnandoerne er menustyrede. 
Hvis man skulle vselge gait. far man 
pasnt besKed pa at lorsoge igen. Men 
tilbage lil det egentligespil. Mickey er 
pa vores planet jorden. Han skal her 
samle en del ting som nan kan fa brug 
for pa 1 sin rumfasrd. Der er nemlig 
kommet et rumskib fra planeten 
Oron, (denne planet er som den ene- 
ste opdigtet). 

Rumskibet er landet i bakkerne I 
nasrheden al Mickeys hus. Indbyg- 
gerne pa planeten har brug for Mi- 
ckey's og Plutos hjaslp til at samle en 
»huske-kryslal>\ der er blevet stjalet 
og bracket i ni stykker og derefter 
smidt ud i rummet. Mickey og Pluto 
skal derfor pa en rumre|se og vandre 
pa planeterne I vores solsystem, for 
at finde de ni krystaidele, 
Del der gor dette spil forskelhgt Ira 
andre spil, jeg normalt anmelder. er 
ikke kun, at det henvender sig direkte 
til barn, men ogsa at det er et ret 
informativt spil, der er lavet efter de- 
visen »legog leer-. Man far i dette spil 
lsert om vores solsystem. de forskel- 
lige planeter, deres opbygning, hvor- 
dan tyngdekraften mdvirker pa Mi- 



ckey's vaagt (sa det vil vaere en god 
ide at rage en va=gi med fra jorden), 
hvordan temperaturen er pa de for- 
skellige planeter. graderne er bade i 
Celcius og Farenheit, da spillet er 
beregnet for bade europseiske og 
amenkanske born. De lokaliteter. der 
skal udforskes hvert sted, er Ikke 
storre end man sagtens kan finde ud 
al at lave kort over de steder man har 
vceret. Det kan nemlig vaare praktisk 
at komme hurtigt tilbage til rumski- 
bet, hvis lulten slipper op. 

Derer bllledertil alle lokaliteteme. 
Nedenunder er der en kort tekstbe- 
skrivelse og ved at trykke pa return- 
knapnpn kommer man til menulinjen. 




Selv om det er et spil for born og 
andre barnlige sjsele, er det ikke 
uden udfordringer, man kan for ek- 
sernpel do af luftmangel, man kan 
komme til den forkerte planet, fordi 
man ikke har Isest den besked sorn 
Mx30 har givet om den planet, man 
skal besoge. Hvis del sker, kan Mi- 
ckey og Pluto ikke ga ru ndt pa plane - 
ten. og ma derfor i deres rumskib 
begive sig til en anden. Hvis man 
finder et af kryslalstykkerne kan man, 
hvis man er uheldig. ikke fa fat I det. 
fordi man abenbart ikke har det rigti- 
ge med sig fra jorden. En title hage 
ved spillet, der er pa to diskerter. er at 
det er langsomt. det er sikkert pa 
grund af al den grafik der er. men i 
disse tider hvor alt gar hurtigt. foles 
selv den rnmdste ventetid foran en 



computer meget lang. Men alt » alt et 
meget godt spil som man kan fa 
megen underholdning ud af 

Det sidste spil l denne omgang er 
Walt Disney's Donald Duck's Play- 
ground. Dette er ikke et adventure, 
men er anmeldt fordi det i sin opbyg- 
ning minder om Mickeys space ad- 
venture. Det vll sige et spil man sam- 
tidig kan lasre noget af. I dette spil er 
det pengesager, det bl.a. drejer sig 
om. Man kan tjene penge og kobe 
tmg. Samtidig lasrer man nogel om at 
genkende en figur nar man ser den. 

Taenk dig Anders And, som en 
arbeidsnarkoman, der pukler for at 
tjene penge, sa han kan kobe lege- 
redskaber til sine nevoers legeplads, 
en ganske ny rolle for den ellers ikke 
alt for villige And. Anders kan arbejde 
i fire forskellige firmaer. 

I The Produce Market ska! Anders 
And sortere frugt j de rigtige kasser, 
han bhver meget vred hvis han gnber 
forkert eller kom er til al Isegge frug- 
ten I forkerte kasser. Han tjener pen- 
ge for hver frugt. der bliver placeret 
rigtigt. 

McDuck Airlines skal have sorleret 
flybagagen til det rigtige fly, her er 
vognene masrkede med bogstaver, 
og Anders skal lasgge den rigtige 
bagage i den rigtige kasse. 

The Toy Store, her er Anders And 
blevet ansat til at sastte legetoj pa 
hylder. En gang imellem passerer 
der et tog, der far alt til at ryste, 
Anders skal her ogsa sorgefor. at der 
bliver sat et beskytteteesskjold foran 
reolen med legetoiet. Hvis der gar 
noget i stykker, skal han nemlig selv 
betale for det, dvs. han bliver trukket i 
Ion 

Amquack Railway. Anders er skif- 
tespors arbejder, han skal passe 
seks skifiespor og sorge for, at toge- 
ne kommer rigtig trem, i dette tilfaslde 
skal man kunne seette skiftesporene. 
sa toget kommer til de rigtige byer, 
De tre forste steder hgner i opbyg- 
ntng hinanden. Man har enten en 
figur eller bogstaver man kan sam- 
menligne. for man laagger tingen pa 
plads. Det sidste afviger en smule 
herfr-a. 

fortsaattes side 56 
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BIT for BIT 



Lyd og billed 

Ofte er del de sma ting, som ger 
fofskeilen pa et «almindeltgt« pro- 
gram og et som virker »ualrnindeligt« 
(laekkert). En af disse ting er ofte 
overset, nemlig lyde, der markerer a! 
nu sker der noget. Zeropage er pa 
1 28eren et vidt begreb. Vi har i denne 
serie ofte set adresser langt ud over 
de forste 255 positioner, Og denne 
gang skal vi laengere op i rsekkerne, 
for deroppe meder vi et par effektlui- 
de adresser, der kan gore del lidt 
sjovere at programmer og ikke 
mindst brugeet program. 

Men forst lige et stop ved en ad- 
resse, sorn giver lyd fra sig. I mod- 
sastning lil sin forgsenger (altsa 
64eren) har 128eren en mulighed for 
at give et bib/signaf. Hvorfor ikke 
bruge det? 




Dels direkte; 
CTRL+G 

eller under programafvikling: 
PRINT CHRS(7) 

Men det er en helt anden mulighed 
vi stsder pa i zeropage. nemlig pa 
adressen 249. 

Her kan man afbryde eller tsende 
denne bib-tone. Den kan hores hvis 
man taster: 



POKE249,0 (den normale vserdi) 
og den afbrydes ved (f.eks.) at laste: 
POKE 249,128 



Der gives ogsa t dette tllfaslde en 
sasrlig rutins som frembringer denne 
ov-bov-tone. Den findes pa adres- 
sen 51602. Og gentagne kald f.eks. 
via en FOR-NEXT lokke vil kunne 
Irembhnge en forholdsvis lasngere 
tone. 



FOR N=ITO200:SYS51602;NEXT 



Sa kom der lyd pa fejlindtastnin- 
gerne. Og om netop indtastninger 
handler den naaste lille adresse, som 
jeg vil behandle. Men holdt - stop. 
Farst vi! jeg lige forteelle, at i adres- 
serne 240-254 (altsa fern adresser) 
ligger der el omrade, som er meget 
nyttigt 



Der er god brug for det. Men en 
bestemt anvendelse trseffer man ofte 
pa i professionelle programmer, og 
det er som fejltone. Altsa naT man 
fe|lbet|ener programme! lyder denne 
»ov-tone<-. Pa l28eren er der for- 
skellige mader at fa denne tone frem. 




af Flemming Lerbaek 



Ganske enkell fordi det ikke har 
nogen funktion. Og det kan man ud- 
nytte i sine programmer, ved at PO- 
KE vserdier til disse steder og senere 
hente dem igen med PEEK. Og til 
maskinprogrammoren udgor de et 
endnu storre potientiel. De er nemlig 
stadig en del af zero-page og kan 
derfor adresseres med kun 1 byte. 

Ov-bev-lyden kom I hus. Men en 
af maderne til at undga den er ved at 
taste rigtigt ind. Ofte vil man dog 
hellere have en smidig indtastntng. 
Her plejer de fleste at bruge WAIT 
eller en kombmeret IF-GET kom- 
mando. Men der findes en anden 
komrnando. som modsat GET ikke 
giver nogen variabler. 

Sknver man i sit program: 
POKE 2593,1 

standser det ojeblikkelig. Men kun sa 
leenge tastaturel ikke berores. Denne 
adresse i den udvidede zeropage har 
sarnme lunktion som CTRL + S. 
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En sadan mulighed for at slandse 
sin programafvikling bar man gore 
opmaerksom pa i programme!. Den 
er meget nyttig. rsvis man f.eks. ska! 
have lid til at studere en grafisk af- 
bildning eller lEBse en svcert forslaelig 
tekst. Ikke alle laser lige hurtigl. 

Kun et lille skridt videre i zeropage 
finder vi endnu en interessant byg- 
gesten. 2594 er stedel. hvor det af- 
gores, om der skai se en repeal- 
funktion pa tasterne eller e|. 128eren 
har normalt vasrdien 128 pa dette 
sted. Og som du sikkert har fundet ud 
af, er der gggggentageise pa alle 
tasler. Den kan slas fra sa den virker 
som i 64/mode med vserdien 0 eller 
den kan (ases helt med vasrdien 64. 



Det tempo, hvormed gentagelsen 
sker. altsa hvor hurtigt det 2. tegn 
saeltes pa skaarmen, bremses pa ad- 
ressen 2595. Normalvaerdien star pa 
adressen lige efter - altsa 2596, og er 
13. En stsrre vasrdi pa 2595 gi'r en 
langsommere start. 
Og sa vil jeg slutte denne omgang at 
Bit for Bit med et par adresser. der er 
nyttige i forbindelse med curseren. 

Otte har man set beklagelser over, 
at der i INPUT-kommandoen var en 
curser til stede. Jamen sa sluk den 
da. Det sker pa adressen 2599. Det 
er lidt mere tricky denne gang, idet 
man skal tasnde og siukke bit 0. Har 
bit 0 pa adressen vaardien 0 er curse- 
ren laendt og med vserdien 1 er den 
vaek. Altsti teend med; 



POKE2599.0 og sluk med 
POKE2599.1. 



Her er de enkelte bit og deres 
betydning; 

bitO: 1 = fasl 
bit 2-3: linje-curser 
bit 4-5: curseren vask 
bit 6: 1=blinkende- 

Her er nogle relevante vasrdier: 

1 normal fast (uden blink) 

6 streg last 

12 sluk Week) 

96 normal blinkende (mil.) 

102 blinkende sireg 

God fornojelse med forskonnel- 
sen af programmerne. q 



Og vil man have sin curser til at 
blinke helt vildt (langsomt) i stedetsa 
POKE2598.64. Normalt er vaardien 
her 0. 

Curseren kan med det ovenstaen- 
de kontrolleres i 40/tegns mode. 
Men de som har haft rad til en moni- 
tor, vil sikkert gerne kunne bruge 
dette trick i 80-tegns mode. Det kan 
man ogsa gore. Og mere end det. For 
i denne mode er der ogsa mulighed 
for at fa en anden type curser frem. 
Det sker altsamrnen pa adressen 
2603. 
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SbUcntttre 



fra side 53 

Alle de penge der bliver tjeni, kan 
man bruge i de Ire forretninger, hvor 
indehaverene er Fedtmute, Mickey 
Mouse og Minnie Mouse. Man. kober 
sine varer og betaler med del man 
har tjent. Man skal selv isegge penge i 
kasseapparatet og lage tilbage, hvis 
man skal have noget retur. Man kan 
Ikke snyde og tage mere. Priserne er 
i dollars, men del betyder egentlig 
ikke sa rneget. da man har del sam- 
me decimalsystern. De ting, der bli- 
ver kobt, bliver fragtet til en lege- 
plads, hvor man kan placere. ringe, 
stiger. rutchebanerosv. som man har 
lysl til. Rip, Rap og Rup ser ganske 
fornojede ud, nar de muntrer sig. 

Sorn man kan laese er malgruppen 
for detle spil for de yngste laesere. 
Men der er bS.de god grafik og musik 
pa detle spil. Ogsa dette spil kan 
anbefales til born og aldersklassen i 
dette tilf aside ma vel vasre mellem 7 
og 1 1 ar. 




Jeg har vseret rneget glad for at mod- 
tage nogle breve, hvor man bad om 
hjaelp, men ogsa hvor man har tilbudt 
h|aelp til de adventurefans. der er 
blevet fangel i huler i de forskellige 
spil. Men der ma sladig vaere mange 
der har problerner - sa lad mig here 
fra |er. 

Her er gode nyheder til Ulrik Chri- 
stensen og de andre. der har proble- 
rner med Vic 20 spillet der hedder 
"Voodoo Caslle«. En af vores laesere 
har lost dette problem og vil gerne 
h|a?lpe alle, der skriver til ham. Jes- 
pers adresse er: 

Jesper S. Sarensen 

Lovsangervang 8 

3450 Altered. 
Her er sa nogle hints og tips: 
Zork 1 

For at cibne grating, skal du have 
noglerne, "der skal findes i labyrinten 
(husk der kan vasre op til 1 0 udgange 
hvert sted, 



Der er to mader man kan klare 
kyklopen pa. Enten fa ham til at sove 
eller rab navnet p£ hans naturlige 
fjende. 

For at komme til Hades, skal man 
have tre ting; klokke, bog og lys. 

The Tracer Sanction 

For at fa informationer i informations- 
skranken. er man nodt til at vsere 
uhoflig og springe over i keen. 

At vsere en smule voldelig i baren 
kan ogsa komme en til nytte. 
Spil del samme spil som manden pa 
broen. Del vil give dig adgang til 
slottet. 

Man skal huske, at med bade the 

Tracer Sanction og Mindshadow skal 
man undersoge billedet naje. Der 
kan vaere nyttige ting, der ikke er 
beskrevet i teksten. 

Quit 

Alt for denne gang. Vi har stadig ikke 
modtagej Lord Of the Rings (part 1), 
men maske i naeste maned kan der 
komme en omtale af dette spil. Jeg vil 
ogsci se pa et dansk adventure. Ja, 
du lassie rigtigt et dansk spil. Indtil da 
vil jeg gi tilbage til Wishbringer. □ 



=Fasi Save 

fra side 5 

For at save omradet under BASIC, 
rna du derefter poke tolgende 
vserdier. 

POKE 43.0:POKE 44,160:POKE 
45.0: POKE 46.192 
SAVE "BASIC-RAM".8 

Husk at poke disse pointere tilba- 
ge til del. de var for du havde save! 
dette orwade. 

FASTSAVE lader dig vaalge, hvad 
du vil have mde af RAM og ROM. 
Veerdi; 

48 64K RAM inde. Bruges til at lagre 
»reserve-RAM«. 

51 BASIC, KERNAL, TEGNS/ET og 
44K RAM. Ncesten som sasdvanlig - 
eneste nye er tegnsaattet. 
55 Almindelig: BASIC, KERNAL. 
IND/UD og 44K RAM. 

Flimmer pa skaermen 

Nogle kan godt lide ->striber<* pa 
skaarmen, andre bryder sig ikke om 
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dem. Det kan vsere lidt irriterende, 
men man ser da, at der foregar noget. 
Du kan imidlertid selv vaelge. 

0 inlet flimmer 

1 rneget flimmer 

Op star ten 

Alle disse vasrdier vil du blive spurgt 
om. nar du korer programme!. Hvis 
du vil aendre dette efter du har aktive- 
ret FASTSAVE, ma du gore fol- 
gende: 

POKE 63491 +A, va?rdi 

Vcerdierne finder du ovenfor, og 
her er sa A'erne: 

0 Stregbredde spor 1-17 

1 Stregbredde spor 18-24 

2 Stregbredde spor 25-30 

3 Stregbredde spor 31-35 
A Verily 

5 ROM/RAM 

6 Blank skaarm 

7 Flimmer 

Sammen med FASTLOAO 

Hvis du skal bruge FASTSAVE sam- 
men med FASTLOAD. ma FAST- 



SAVE startes op efter FASTLOAD. 

Da FASTLOAD blev lavet, var 
FASTSAVE ikke pataenkt, og fslgen 
af dette er, at FASTSAVE ma rydde 
lidt op i hukommelsen for at fa dem til 
at fungere sammen. 

Tilfojelser 

I artiklen om FASTLOAD Kom det 
ikke med, at du kunne bruge SYS328 
tor at koble FASTLOAD ind igen efter 
den var blevet Koblet ud (ved f.eks. 
RUN/STOP RESTORE). Vi burde 
maske ogsa have nasvnt, at FAST- 
LOAD mdeholder FAST-VERIFY. 

Med FASTSAVE inde. vil SYS 328 
koble bade FASTSAVE og FAST- 
LOAD til. 

Nu har du forhSbenlig FASTSAVE 
faerdig pa disketten. For at bruge den. 
henter du programme! ind og korer 
det: 

LOAD"her skriver du filnavnet",8 
RUN 

Der vil nu sta "(C) RUN" pa skaer- 
men. Hvis Ikke - sa held og lykke 
med feilsogningen. □ 



Menumaster 



af Henning Randmose 



Nar man har en PC-er rned en harddisk, kan det 
vasre svaert at bevare overblikket. Hvis man er skrap 
til at arbejde i DOS, kan man setv lave nogle styreme- 
nuer. hvis ikke, kan man for et rimeligt beleb anskaffe 
sig et program, der gar arbejdet. 

Med MENUMASTER opretter man sine menuer i 
vinduer. Der kan vsere op til tre vinduer ovenpa 
hinanden, og i de to forste vinduer kan man vselge, 
om man vil oprette en undermenu, orn man vil ud i 
DOS eller starte et program. I det tredie vindue kan 
man Ikke oprette menuer. 

Installering 

Installeringen er lavet meget brugervenlig, man be- 
never sa at sige ikke manualen, da man far instruktio- 
nerne udskrevet pa skaarm - on-line h>jae1p. 

De, derarbejder med en farvemonitor, vil glasde sig 
over, at der er 128 mulige farvekombinationer at 
vaelge Imellern, hvilket (or den fantasirige kan give 
nogle flotte menuer. 

Oprettelse af menuer 

Programmet DANOPRET bruges bade til oprettelse 
og vedligeholdelse af menuerne. Nar man korer 
programmet, far man et vindue op pa skasrmen. Over 
vinduet star dato, lid og version, - under vinduet er 
angivet 5 redigeringsmuligheder + hjselp og afslut. 

Valgene er lagt ud pa funktionstasterne. Der er 
mulighed for at slette/indsastte en linje, rette i para- 
metrene. flytte menuteksten og asndre vindues-ram- 
mens storrelse og placering pa skeerm. 

Styring af oprettelse er af den meget brugervenlige 

»du tager med hejre hands tommel « slags, sa 

man, nar man er naet hertil, kan lasgge brugervejled- 
ningen vask. Det ferste du skai indtaste er et menu- 
punkt, et tal eller bogstav, som derefter vil veere det, 
du skat indtaste for at vaslge en undermenu eller 
starte et program op. 

Brug af menumaster 

Du kan Icegge opstarten i en AUTOEXEC.BAT, eller 
du kan taste MENU, og du vil komme ind i hovedme- 
nuen. Ved hjaslp af piltasterne peger du sa, pa det 
enskede og bekrasfter med ENTER. Det er sa enkelt, 
det kan vasre. 

Konktusion 

MENUMASTER kan bruges savel privat, som i net- 
veerk, det er billigt, hurtigt at laere og nemt at bruge. 
Hvis man ikke er det fadte ordensmenneske, eller 
ikke bruger samtlige filer hver dag, og derfor kan 
huske bade navn og indhold, kan det spare megen 
tid. 

Oplysninger om MENUMASTER: 

DTI-Software A/S - tlf. 05-828888 D 

Pris: kr. 995 




TIPS OG TRICKS I 

B^siseil*! w alia DATA-BECKER Bo 
g«wrw 

64 INTERN m. 2 dia. 

AH om lokntft. brupssyslemei OQ 
avanceret programmer inQ Ai CM 

FLOPPYbogen, store 

DisKelfeatnllon 1W1 All om disk*!- 
(eprogiammsflnQ Ira begyider l" 
pto tfi ',•>.. 

GRAFIKBOGEN 

En DewsCw til gra'/hpregramme- 
1 "■! WHegnel Itx snvel begyndete 
'• ■■■■■'■'I- som pretosnKxiRiic 



IDEBOGEN til 64 

Hot komme* 64 wens <il3iaightfi> M 
sm luide oat med smarie piogram 
met in nyllrg anvendelse og in md- 
\aninQ 

MASKINSPROG I 

En bestseller der orundJlgt oajHBr 
dtq trW i uiOordsgangen i 65 HI pro 
cessoien 

MASKINSPROG II 

Mat i)u 5(11101 Mfwimsk/io med ma 

-■"•:■[ t.-h et det ikke langt m ai 
Olive ptotossionel 



De 7 bedste DATA-BECKER boger til C64 
oversat til engelsk. 
Normalpris kr. 248.00 pr stk. saalges til SPOTPRIS 
Kr. 129.00 pr stk 
eller alle 7 handboger for kun kr.698.00 
Det er da billigt. SADAN! 



KATALOG 



Righoldig. Over 100 boger og 
programmer. Sperg hos din for- 
handler eller send 5 kr. i frimaarker. 



2 NORSKE B0GER TIL 
COMMODORE 64 

Bind 1 til kr. 129.00 og bind 2 til kr. 229.00. Disse 
to boger giver en nem og overskuelig indforing i bru- 
gen af C64 m. div. tilbenor. Du laeser faktisk lige sa 
nemt norsk som dansk. 

Se bogerne hos din forhandler. 




NORDIC COMPUTER SOFTWARE 

POSTBOX 105 - DK 6950 RINGK0BING 

Eneimporter for de 5 nordiske lande. 
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Irene Jensen fra abonnementsafdeHngen - en af medarbejderne bag RUN. 

SPAR 20 * 

For mindre end 20 kr. om manedert kan du holde dig a jour om alt, hvad 
der vedrorer din Commodore computer og de dermed beslaegtede 
produkter. 

Hvis du tegner el abonnemenl pS RUN, far du bladet leveret med posten og 
sparer samtidig 20% i forhold til lossalgsprisen. Et arsabonnement koster 
kun kr. 236,00 for 10 numre - du sparer altsa kr. 59 t 00, hvilket svarer til 2 
gratis numre. 

Send kuponen I dag - eller ring til vor abonnementsafdeling 

(01) 95 56 95 



AAA 



Ja! 



Jeg onsker at tegne helarsabonnement 
(10 numre) og sparer 20%. 
Abonnementspris kr. 236,00 

Abonnementet skal starte med nr. | | 



Navn 

Stilling . 



Firma . 



Adresse 
Postnr. _ 



By/dislrikt _ 



Pnvaladrgsse Q 

Firmaadresse D 



Kuoonen sendes til 

RUN. Torvegade 52 
1400 Kebenhavn K 



RUN AMOK 

Vort nye preprogram 
har snydt os, da vi skulle 
udliste nogle af de spe- 
cielle 1 28-kommandoer i 
vort program Boot- 
maker i sidste nummer. 

I linje 19 star der i kan- 
tede parenteser 
ASCII254,DOWN-dette 
skal erstattes med BLO- 
AD (parenteserne skal 
ikke med). 

I linje 61 skal der sta 
FAST:GRAPHIC 1,1 
og linje 77 skal rettes til 
SLOW. 

I linjerne 77 og 78 skal 
de kantede parenteser 
incl. indhold erstattes 
med kommandoen BSA 

VE. 

SID-MON 

Sidste del af programmet 
SID-MON i sidste num- 
mer er forsvundet. I pro- 
gramsektionen er resten 
af programmet udprintet. 

Fadselsdagskonkur- 
rence 

Interessen for RUN's 
fodselsdagskonkurrence 
har langt oversteget vore 
forventninger. Vi er der- 
for stadig t gang med at 
gennemgS de mange 
spaendende pro- 
grammer. 

Vi vender tilbage med 
resurtatet i et af de forste 
numre. 

Neeste nummer af RUN 

Du kan glasde dig til naa- 
sle nummer af RUN, 
som udkommer inden 
paske, nemlig den 26. 
marts 1986. I det num- 
mer vil du bl.a. finde ek- 
stra mange nye og 
spcendende programlist- 
ninger til C64, VIC-20, 
C16og PLUS/4. 

Udsolgt 

RUN nr. 2 1984 og RUN 
nr. 3 og 4 1985 er ud- 
solgt. 

Ovrige numre kan k0- 
bes ved indsendelse af 
kr. 25,00 til RUN. 
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VIGTIGT TILBEH0R TIL ALLE, DER 

TAR DERES COMMODORE 64 ALVORUGT 






Din Commodore giver dig en lang 
rcekke muligheder. som du tar mest ud 
af ved at bruge udstyr. der er udviklel 
specielt til din computer. Isar lor dig, 
der er blevet fortrolig med 64'eren 
og skal igang med mere komphcerede 
opgaver. er det vigtigt med det beds! 
Uenkelige perif ere udstyr. 

• Med Commodore 1541 diskettesta- 
lion har du 170K til din radighed, 
hurtig dataoverfersei og nem betiening. 
Men ferst og fremmest giver C 1541 
adgang til hele det store softwa/e- 
udvalg, der findes til C 64 pa diskette. 
Faktisk et al verdens sterste. 

• Commodore 1702 video-monitor har 
h0j oplesnmgsgrad og giver ftotte 
grafiske opstillmger. Og hvis du i dag 
bruger familiens Ijernsyn slipper du 
for opstillingstid - og familien fSr lov til 
at seTVen gang imeJIem. 

• Med Commodore MPS 801 kan 

du printe gralik og skrift. Den kan ogsa 
udskrive fortrykse formuiarer som 
checks, regningerog megetmere. Med 
MPS 801 kan du ogsa vare med i 
Datatips. Det nye utrolige system, hvor 
du blot behever at indtaste din 
udgangsrskke, sa skriver systemet 
automatisk tipskuponerne ud. 
Og mSske er du en a( de heldige... 

Fa mere ud af dtn computer, 
Med tilbehar, der er skabt til den. 



O 

Commodore 

Fdrdi fremtfden forisengst 
erbegyndt. 



MPS SOI den grafiske printer. 

Skriver alte 64*erens grahske 
tegn. speeiallegn og hoioplos- 
mngsqralik. Store og sma 
bogslaver i lorskellige slu'ref- 
set Skuvehastigried SOttgiw 
sek' 
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0007562158 
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Farveprinter med mere end 100 fa 



H0LSTEBR0 BIBLIOTEK 
INFORMATION 
KIRKESTRfE DE 11 
7500 HOLSTEBRO 




kan de 
hele til 
halve pris 

Mere end 100 klarefarvenuancer klarerden revolu- 
tionerende print-teknik, der muliggor hoj oplose- 
lig grafi k til f.eks. farveillustrationer, udskrevet 
nojagtij som skasrmbilledet... eller hvad med 
farvegrafik direkte p& overhead transpa- 
renter? 

OKIMATE skriver naturligvis ogsi almin- 
delige bogstaver, hele 80 tegn pr. sek. i 
standardudskrift og i brevkvalitet skri- 
ver den samsend 40 tegn i sek. - 
hurtigere end de fleste skonskrifts- 
printere. 

Specielle skrifttyper er heller ikke 
noget problem: Brede tegn, 
»Boidface« kursiv, understreg- 
ning, "Superscript" og 
»Subscript« gar som en leg 
med OKIMATE. 



Skynd dig at bestille en... 
derbli'rRUN pLA 
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8800 VCotg. TH 06-fit 08 83 Abenra: Miinchow Folo, Ftamsherod 
04 -62 33 4 0. Aalborg; Atelier Vejgaard Folo. Bouievarden 26. TW. 08- 13 
Veigaard Foto, l&gaani lory 1. Til . 08- 12 OS 10 NorfegaOes Folo. Ncirrac 
TH. 08- 163905. Artws: Jens Basse Folo Ryesgatie 35 . 8000 A/hu* . 
1322 32. Mimosa, Storelbrv 5 06- 1204 ;i lSJjELUND:W lerod:Allefog 
AmtswejIO.TK 02-2721 65. Bronshoj: Bronshoi Fotocenter. Fredenkssund' 
TH, 01 - 60 28 91. FrederlkavBrii: Sandne/ Folo, Norregaoe 26.TH 02- 12 U0 65. 
Reffimgs Foto, StrandWijen 155 TH 01-622442. Milierod; C P Folo. SlotsgaOe 
2-2*658 80. Hobaak: Hegnei Foto, Ahigade 26. Ttf . 03-43 0535. Hvkkwe: Broncu< 
Bnsicftyostet Ibrv. TH, 01-751260 Krfundborg: Kokn Radw/foto. Kordilgaoe 
'03-514451 Kcrser: Holm Radio. AJgade 50. TH. 03-570023 Kobenhavn Hi Tang 
Nor rebtogade 30- TH. 01 -35 59 81 Kobenhavn MV: N. V Folo. Fredenksborgvei 84 TH. 01 -81 
lyngby: Foiomagasnet -Lyngby- Hovedgaden 47. TM. 02-883676. Nawtved: Holm Foto 
stsdgaoe t TH. 03-720501. RosWWa Reidl Foto. AJgade 27. TH. Q2-354Q42. Skshkor 
Radio, Algade I7.TH. 03-5941 02. Sagelse: Holm Foto. Scnwetfapiads 10. TH. 03-52 8820 
Helm Radio. Absalonsgado 2. TH 09-63 0343 S4entose; Fg|oHu$ei, StonfcsR Centrei. ■02-1" 
Tfatnjp: Fotomaoastnet. K oojevei 1 17. TM O2-996O60 Qlstykka: Foto 4 Computer Center. " 
borgvej 7, TH. D2 - 17 94 94. 1 FtH'i Nvbors: Nyborg Folo, I toftogade 11. Til . 
09-314 444 Odenw: KH-Foto. OrbasKvej 109 Tlf 09-15 60 OO lLOiLAND-FAL 
STERj Nakskov: Folo-Kino. Axeflorv 7. TH 03-92 05 67. Mykobing F_* M B. 
&Wt5.TIf 03-855560. 
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